See if this helpsPrivate Sub Timer1_Timer()
If MSComm1.PortOpen = False Then
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End If
MSComm1.InputMode = comInputModeText
strabc = MSComm1.Input
'Only update the textbox if the valus has changed
If strabc <> text1.Text Then
text1.Text = strabc
End If
End Sub