Dim Bytenumber as integer
Dim ByteToRead as integer
'---------------------------------------------------------------------
    ' thread Daten lesen von COM Port
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
                                         ByVal e As _
                                         System.IO.Ports.SerialDataReceivedEven_
                                         tArgs) _
                                         Handles SerialPort1.DataReceived
        If comOpen Then
            Try
                ' Anzahl der im Empfangspuffer aufgelaufenen Zeichen:
                Bytenumber = SerialPort1.BytesToRead
                ' liest 1 Zeichen im Format Byte aus dem Puffer:
                ByteToRead = SerialPort1.ReadByte()
                ' liest 1 Byte aus dem Puffer und konvertiert nach Ascii:
                CharToRead = SerialPort1.ReadChar()
                ' liest String bis "90" empfangen wird
                readBuffer1 = SerialPort1.ReadTo("90")
 
                ' Liest String bis carriage return
                readBuffer = SerialPort1.ReadLine()
 
                Me.Invoke(New EventHandler(AddressOf DoUpdate))
            Catch ex As IO.IOException
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

mfg
Ellen