Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub



Private Sub ScannerTimer_Timer()
   Dim result As String

   Do While MSComm1.InBufferCount
         result = result + MSComm1.Input
   Loop
   Text1 = result
End Sub