MSCOMM.onevent() - все работает

Private Sub Command1_Click()
' к посылке добавляем EOF
MSComm1.Output = Text1.Text & Chr(26)
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = '9600,N,8,1'
MSComm1.SThreshold = 1 'минимальное кол-во символов в передеющем буфере
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
   ' Handle each event or error by placing
   ' code below each case statement
   ' Errors
      Case comEventBreak   ' A Break was received.
           MsgBox comEventBreak
      Case comEventFrame   ' Framing Error
        MsgBox comEventFrame
      Case comEventOverrun   ' Data Lost.
            MsgBox comEventOverrun
      Case comEventRxOver   ' Receive buffer overflow.
            MsgBox comEventRxOver
      Case comEventRxParity   ' Parity Error.
            MsgBox comEventRxParity
      Case comEventTxFull   ' Transmit buffer full.
            MsgBox comEventTxFull
      Case comEventDCB   ' Unexpected error retrieving DCB]
            MsgBox comEventDCB
    End Select
End Sub

Dim str As String
Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.Settings = '9600,N,8,1'
MSComm1.Handshaking = comXOnXoff
MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 1 ' включение события comEvReceive
MSComm1.RTSEnable = True
MSComm1.EOFEnable = True 'включение события comEvEOF
 
MSComm1.InputLen = 0
MSComm1.PortOpen = True
 
End Sub
 
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
 
      Case comEventBreak   ' A Break was received.
           MsgBox comEventBreak
      Case comEventFrame   ' Framing Error
        MsgBox comEventFrame
      Case comEventOverrun   ' Data Lost.
            MsgBox comEventOverrun
      Case comEventRxOver   ' Receive buffer overflow.
            MsgBox comEventRxOver
      Case comEventRxParity   ' Parity Error.
            MsgBox comEventRxParity
      Case comEventTxFull   ' Transmit buffer full.
            MsgBox comEventTxFull
      Case comEventDCB   ' Unexpected error retrieving DCB]
            MsgBox comEventDCB
   ' Events
     Case comEvReceive   ' Received RThreshold # of chars.
          instring$ = MSComm1.Input
          str = str & instring$
          If MSComm1.CommEvent = comEvEOF Then
             Text1.Text = Replace(str, Chr(26), '')
             str = ''
          End If
      
   End Select
 
End Sub