DIM B as Byte
DIM Platzhalter as Byte
DIM AnyVar as Long 'Deren Inhalt willst Du in den E²PROM schreibenWillst du reinschreiben (EDIT, hab ganz vergessen das Integer nur 2 Byte lang is, Long is richtig)
DIM EPromAddy as Integer

EPromAddy = 0
Platzhalter = 0
AnyVar = DeinWert

'schreiben
FOR PlatzHalter = 1 To 4
B = AnyVar
WriteEeprom B, EPromAddy
EPromAddy = EPromAddy + 1
ROTATE AnyVar, Right, 8
Next Platzhalter

EPromAddy = 0
AnyVar = 0
'Lesen
FOR Platzhalter = 1 to 4
ReadEEPROM B, EPromAddy
AnyVar = AnyVar + B
Rotate Anyvar, Right, 8
EPromAddy = EPromAddy + 1
Next Platzhalter
[EDIT] Habs getestet und funkt.[/EDIT]

- Thebe