Public Class Form1
    Dim Port As New IO.Ports.SerialPort
    Dim Daten As Integer
    Dim Bytes As Integer
    Dim Status As Integer
    Dim DatenB As String
    Dim DatenC As String
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 10  ' 1 Sekunde
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Status = Port.IsOpen
 
        If (Status = False) Then
            Port.Open()
        End If
 
        Bytes = Port.BytesToRead
 
        While (Bytes > 0)
 
            Daten = Port.ReadByte
            DatenB = CStr(Daten)
            DatenC = DatenC + " " + DatenB
            Bytes = Port.BytesToRead
            TB_Bytes.Text = Bytes
 
        End While
 
        TB_auslesen.Text = DatenC
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
End Class