This example shows how to read 10 characters of data:
Private Command1_Click() Dim CommData as String ' Specify a 10 character block of data. MSComm1.InputLen = 10 ' Read data. CommData = MSComm1.Input End Sub