Imports System.IO.Ports
 
Public Class Form1
 
 
    Private Delegate Sub DelegateSub()
    Private Empfang As New DelegateSub(AddressOf InListeEintragen)
    Private s As String
 
 
    Private Sub BtnEin_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnEin.Click
        SerialPort1.Write("U4" & vbCr)
    End Sub
 
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        SerialPort1.Close()
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        With SerialPort1                            'Einstellungen Serieller 
        ' Port
            .BaudRate = 9600
            .DataBits = 8
            .Parity = IO.Ports.Parity.None
            .Handshake = Handshake.None
            .StopBits = IO.Ports.StopBits.One
            .Open()
        End With
    End Sub
 
 
    Private Sub BtnZwei_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnZwei.Click
        SerialPort1.Write("U6" & vbCr)
        SerialPort1.Write("U4" & vbCr)
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        s = SerialPort1.ReadTo(Chr(13))
 
        Invoke(Empfang)
 
    End Sub
 
    Private Sub InListeEintragen()
 
        ListBox1.Items.Add(s)
        s = String.Empty
    End Sub
End Class

Ahnungsloser ahnungsloser...