Imports System
Imports System.IO.Ports
Module Module1
 
    Sub Main()
        Dim mySerialPort As New SerialPort("COM4")
 
        mySerialPort.BaudRate = 9600
        mySerialPort.Parity = Parity.None
        mySerialPort.StopBits = StopBits.One
        mySerialPort.DataBits = 8
        mySerialPort.Handshake = Handshake.None
        'mySerialPort.NewLine = vbCrLf  'legt das Zeilenende für WriteLine fest.
                                        'Standard ist vbLf
        mySerialPort.Encoding = System.Text.Encoding.Default  'Standard ist 
        ' ASCII 7-Bit
 
        Dim b() As Byte = {0}
 
        mySerialPort.Open()
 
        'Test ob alle Bytes richtig übertragen werden
        For i As Integer = 0 To 255
            b = {i}
            'mySerialPort.Write(b, 0, 1)   ' OK auch ohne Encoding Angabe
            mySerialPort.Write(Chr(i))     ' OK mit Encoding.Default
            ' mySerialPort.Write(ChrW(i))  ' Fehler bei Zeichen > 127
 
        mySerialPort.WriteLine("Hallo")
 
        Console.WriteLine("Eine Taste ...")
        Console.ReadKey
 
        mySerialPort.Close()
    End Sub