Public Sub MSComm1_OnComm()
    Dim newChar As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            newChar = MSComm1.Input
            If newChar = Chr(13) Then // n end of line
                lblData.Caption = CStr(NewChar)
                Me.Print ""  'skip a line
            Else
                NewChar = NewChar & MSComm1.Input
            End If
            ' process other events here
    End Select
End Sub