MSComm comes with VB<br>
Click "Project" menu "Components"<br>
look for Microsft Comm Control<br>
<br>
Here is some code for it<br>
<br>
Private Sub MSComm1_OnComm()<br>
'put this in the sub above<br>
Static Buffer As String<br>
If MSComm1.CommEvent = 2 Then<br>
Buffer = Buffer & MSComm1.Input<br>
If InStr(Buffer, Chr$(13)) Then<br>
Text1 = Left$(Buffer, Len(Buffer) - 1) ' strip off chr$(13) cariage return<br>
<br>
Buffer = ""<br>
End If<br>
End If<br>
End Sub<br>