Dim Data_in() As Byte
Dim others As String
Data_in = MSComm1.Input
Select Case Data_in(0)
Case &HB
MSComm1.Output = Data_in(0)