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.