MSComm1.CommPort = 5
  MSComm1.Settings = "19200,N,8,1"
  MSComm1.RThreshold = 1 
  MSComm1.SThreshold = 1 
  MSComm1.InputLen = 1
  MSComm1.InBufferSize = 30000
  MSComm1.PortOpen = True
 
.....
 
  MSComm1.Output = strSendeMich

        SerialPort = New IO.Ports.SerialPort()
        SerialPort.PortName = "COM5"
        SerialPort.BaudRate = 19200
        SerialPort.DataBits = 8
        SerialPort.StopBits = IO.Ports.StopBits.One
        SerialPort.Parity = IO.Ports.Parity.None
        SerialPort.ReceivedBytesThreshold = 1
        SerialPort.Open()
 
.....
 
        SerialPort.Write strSendeMich

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)