Private Sub OnDataReceived(ByVal sender As Object, _
    ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
    Handles serialPort.DataReceived
        getData()
    End Sub
 
    Public Sub getData()
        ' declare variables
        Dim comportData
        Dim buffer As New List(Of Byte)
 
        Dim intBytesAvailable As Integer = serialPort.BytesToRead
 
        If intBytesAvailable > 0 Then
            comportData &= serialPort.ReadExisting()
        End If
 
 
        Dim entry As String = comportData.ToString()
 
        MsgBox(entry)
        Debug.WriteLine(entry)
 
    End Sub