Dim As UByte com_out(1) = {&hFF,&hAA}
Dim com_in() As UByte
Dim FPort As Integer = FreeFile
Dim portString As String

Open com "COM8:10400,N,8,1,CD0,CS0,DS0" As #fport
Do
      Put #fport,,com_out()
     Sleep(100)
     ReDim com_in(LOC(fport)-1)
         Get #fport,0,com_in()
     For i As UShort = UBound(com_out) + 1 To UBound(com_in)
         ? Hex(com_in(i));
         portstring += Hex(com_in(i))
     Next
     ?
Loop Until InKey = "q"
Close #fport
Sleep