Private Sub AxMSComm1_OnComm() Sub AxMSComm1_OnComm(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm Dim strIn As String Dim I As Integer For I = 0 To AxMSComm1.InBufferCount strIn = Me