Friend WithEvents SerialPort1 As System.IO.Ports.SerialPort
 
    Private Sub DatenSenden()
        ' 02 9E ED D0 01 
        Dim Data1 As UInt32 = &H2
        Dim Data2 As UInt32 = &H9E
        Dim Data3 As UInt32 = &HED
        Dim Data4 As UInt32 = &HD0
        Dim DataBefehl As UInt32 = &H1
 
        ' In die Initialisierung.
        ' Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
 
        ' Dim SendeString As String = "z.B. Deine Daten"
        Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(Data1 & _
           Data2 & Data3 & Data4 & DataBefehl) 
        ' Oder als String Dim sendBytes As [Byte]() = 
        ' System.Text.Encoding.ASCII.GetBytes(SendeString)
        Me.SerialPort1.Write(sendBytes, 0, sendBytes.Length)
    End Sub