Versuchs mal damit:
Code:
Dim A as Byte
Dim B as Byte

If A > B then Writeeeprom B
Oder alternativ:
Code:
Dim A as Byte
Dim B as Byte
Dim Flag as Bit

If A > B then Set Flag
If Flag = 1 then
     Writeeeprom B
     Reset Flag
End If
Grüße
Thomas