<< ' Assuming you have a SerialPort1 object Public Sub SerialPort1_Read() Dim iByte As Byte iByte = Read #Last, 1 ' Do something with your byte... End Gambas has builtins for bit manipulation [2]. >> Got it, all working. Many thanks KK