Sorry, war wohl mein Fehler.

Code:
Dim A as Byte
Dim B as Byte
Dim Flag as Bit

If A > B then Set Flag
If Flag = 1 then
     B = A
     Writeeeprom B
     Reset Flag
End If