Dim x1 As Eram Byte ' Adr 00
Dim x2 As Eram Byte ' Adr 01
Dim x3 As Eram Long ' Adr 02,03,04,05
Dim x4 As Eram Word ' Adr 06,07

hilft das ?

Gento