Imports OpenNETCF.IO.Serial
.
.
.
Private Sub mCommPort_DataReceived() Handles mCommPort.DataReceived
  Try
    Dim data As Byte() = mCommPort.Input 
    Dim seq As String = Encoding.ASCII.GetString(data, 0, data.Length)
 
    ListBox1.Items.Add(seq)
    TextBox1.Text = TextBox1.Text & seq
 
  Catch
    MsgBox("Fehler beim auslesen des Ports!")
  End Try
End Sub