I don't think vb is the problem. I have treid 3 different serial vb examples and all off them is the same, but here is the code

Private Sub Command2_Click()
MSComm1.Output = Text3.Text + vbCr
End Sub


Private Sub Form_Load()
MSComm1.PortOpen = True

End Sub


Private Sub Timer1_Timer()
Dim stemp As String

MSComm1.InputLen = 0
If MSComm1.InBufferCount Then
With frmMain
stemp = stemp + MSComm1.Input

List1.AddItem stemp

Text1.Text = stemp & vbCrLf
Text2.Text = stemp

End With
End If

End Sub

Johan