dim a as word dim b as long 'With objective functions of variables '16 Bit a.LowByte = Lese_Byte() 'write 1. Byte (Lowbyte) a.HighByte = Lese_Byte() 'write 2. Byte (HighByte) 'Alternativ a.Byte1 = Lese_Byte() 'write 1. Byte (Lowbyte) a.Byte2 = Lese_Byte() 'write 2. Byte (HighByte) '32 Bit b.byte1 = Lese_Byte() 'write 1. Byte b.byte2 = Lese_Byte() 'write 2. Byte b.byte3 = Lese_Byte() 'write 3. Byte b.byte4 = Lese_Byte() 'write 4. Byte b.LowWord = Lese_Word() 'write 1.+2. Byte (LowWord) b.HighWord = Lese_Word() 'write 3.+4. Byte (HighWord) 'with masking/shifting a = (a and 0xff00) or Lese_Byte() 'write 1. Byte (LowByte) a = (a and 0x00ff) or (Lese_Byte() << 8) 'write 2. Byte (HighByte) 'and so on.