Hall,

das mit den Subs haut so nicht hin,
oben bei Declare muss die gleiche Zeile wie unten in der Zeile beim beginn der Sub stehen, mit allen Argumenten usw.
Die Argumente müssen dann auch beim Aufrufe mitgegeben werden !

Code:
Declare Sub Write_eeprom(byval Addres As Byte , Byval Block As Byte , Byval Wert As Byte) 


Call Write_eeprom (Addres, Block , Wert )
Beim Read ist es evtl. auch besser eine Function zu machen, um den Wert zurückzugeben.

Hier hab ich die Tage in 'nem Thread auch irgendwo ein ähnliches Beispiel gelesen, musst mal suchen.