gerade mal getestet

wenn ich alle Definitionen weg lasse, ist der Fehler auch weg

mit den Definitionen kenne ich mich eigentlich nicht aus,
der Code wurde im Ursprung von einem Bekannten geschrieben
und ich habe die Def. nur weitergeführt.

wie muß ich das ungefär anwenden ?
Brauche ich das überhaupt?

habs mal geändert auf:

Code:
Dim Zeiger As Byte At &H60
Zeiger = 1
Dim Flag As Byte At &H62
Dim Adresse As Eram Byte
Dim Hot As Eram Byte                                        'Scharfschalt-Status im eeProm
Dim Adresse_temp As Byte At &H68
Dim Tempword As Word At &H73
Adresse_temp = Adresse
Dim Tempbyte As Byte At &H80
Dim Tempbyte2 As Byte At &H85
Dim Init As Byte At &H90
das geht wieder