Private Sub Command1_Click()
With MSComm1
  .CommPort = 3
  .Settings = "115200,N,8,1"
  .PortOpen = True
End With
End Sub
 
Private Sub Timer1_Timer()
Timer1.Interval = 10
On Error Resume Next
c = MSComm1.Input
Text1.Text = Text1.Text + c
End Sub