PrivateSub AxMSComm1_OnComm()Sub AxMSComm1_OnComm(ByVal sender AsObject, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm Dim strIn AsString Dim I AsInteger For I =0To AxMSComm1.InBufferCount strIn =Me
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 =