dim a as word
dim b as long
'Mit den Objektfunktionen von Variablen
'16 Bit
a.LowByte = Lese_Byte() '1. Byte setzen (Lowbyte)
a.HighByte = Lese_Byte() '2. Byte setzen (HighByte)
'Alternativ
a.Byte1 = Lese_Byte() '1. Byte setzen (Lowbyte)
a.Byte2 = Lese_Byte() '2. Byte setzen (HighByte)
'32 Bit
b.byte1 = Lese_Byte() '1. Byte setzen
b.byte2 = Lese_Byte() '2. Byte setzen
b.byte3 = Lese_Byte() '3. Byte setzen
b.byte4 = Lese_Byte() '4. Byte setzen
b.LowWord = Lese_Word() '1.+2. Byte setzen (LowWord)
b.HighWord = Lese_Word() '3.+4. Byte setzen (HighWord)
'Durch Maskieren/Schieben
a = (a and 0xff00) or Lese_Byte() '1. Byte setzen (LowByte)
a = (a and 0x00ff) or (Lese_Byte() << 8) '2. Byte setzen (HighByte)
'usw.