Private Sub MSComm1_OnComm()
         Dim InBuff As String
 
         Select Case MSComm1.CommEvent
         ' Handle each event or error by placing
         ' code below each case statement.
 
         ' This template is found in the Example
         ' section of the OnComm event Help topic
         ' in VB Help.
 
         ' Errors
            Case comEventBreak   ' A Break was received.
            Case comEventCDTO    ' CD (RLSD) Timeout.
            Case comEventCTSTO   ' CTS Timeout.
            Case comEventDSRTO   ' DSR Timeout.
            Case comEventFrame   ' Framing Error.
            Case comEventOverrun ' Data Lost.
            Case comEventRxOver  ' Receive buffer overflow.
            Case comEventRxParity   ' Parity Error.
            Case comEventTxFull  ' Transmit buffer full.
            Case comEventDCB     ' Unexpected error retrieving DCB]
 
         ' Events
            Case comEvCD   ' Change in the CD line.
            Case comEvCTS  ' Change in the CTS line.
            Case comEvDSR  ' Change in the DSR line.
            Case comEvRing ' Change in the Ring Indicator.
            Case comEvReceive ' Received RThreshold # of chars.
               InBuff = MSComm1.Input
               Call HandleInput(InBuff)
            Case comEvSend ' There are SThreshold number of
                           ' characters in the transmit buffer.
            Case comEvEOF  ' An EOF character was found in the
                           ' input stream.
         End Select
 
      End Sub
 
      Sub HandleInput(InBuff As String)
         ' This is where you will process your input. This
         ' includes trapping characters, parsing strings,
         ' separating data fields, etc. For this case, you
         ' are simply going to display the data in the TextBox.
 
 
   On Error GoTo HandleInput_Error
 
         text1.SelStart = Len(text1.text)
         text1.SelText = InBuff
 
 
 
   On Error GoTo 0
   Exit Sub
 
HandleInput_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure HandleInput of VBA Document Form_Form2"
 
      End Sub

Private Sub Form_Load()
 
        ' Form1.Caption = "App2"
         With MSComm1
            .CommPort = 2
            .Handshaking = 2 - comRTS
            .RThreshold = 1
            .RTSEnable = True
            .Settings = "1200,n,8,1"
            .SThreshold = 1
            .PortOpen = True
            ' Leave all other settings as default values.
         End With
 
      End Sub

Private Sub Form_Unload(Cancel As Integer)
   On Error GoTo Form_Unload_Error
 
         MSComm1.PortOpen = False
 
   On Error GoTo 0
   Exit Sub
 
Form_Unload_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Unload of VBA Document Form_Form2"
      End Sub