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.