Public Sub MSComm1_OnComm()
    Dim newChar As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            newChar = MSComm1.Input
            If newChar = Chr(13) Then
                ProcessBuffer (rxBuffer)
                rxBuffer = ""
            Else
                rxBuffer = rxBuffer & newChar
            End If
            ' process other events here
    End Select
End Sub