Friend Function SendeBefehl(ByVal Befehl As String) As String
        SyncLock RS485Port
            With RS485Port
                Try
 
                    .Write(Befehl & vbCr)
                    Dim Antwort As String = .ReadTo(ChrW(13))
 
                    If Antwort.Contains(">") OrElse Antwort.Contains("!") _
                      Then    'Antwort scheint OK
                        Return Antwort
                    Else
                        Return "?Fehler"
                    End If
 
                Catch ex As TimeoutException
                    Fehlerbehandlung(Fehlercodes.Timeout, ex.Message)
                    Return "?Fehler"
                Catch ex As Exception
                    Fehlerbehandlung(Fehlercodes.Unbekannter_Fehler, ex.Message)
                    Return "?Fehler"
                End Try
            End With
        End SyncLock
    End Function

    Private Sub SendeBefehl(ByVal Befehlsbytes() As Byte)
 
        _puffer.Clear()
 
        SyncLock RS485Port
            With RS485Port
                Try
                    .Write(Befehlsbytes, 0, Befehlsbytes.Count)
 
                    Dim StopUhr As New Stopwatch
                    StopUhr.Start()
 
                    Do Until StopUhr.ElapsedMilliseconds >= 10
 
                        _puffer.Add(CByte(.ReadByte))
 
                    Loop
 
                    StopUhr.Stop()
                    StopUhr.Reset()
 
                    'Datenaufbereitung(_puffer.ToArray)
 
                Catch ex As Exception
                    'Fehlerbehandlung
                End Try
            End With
        End SyncLock
 
    End Sub

Do Until .BytestoRead > 0
_puffer.Add(CByte(.ReadByte))
loop

Ahnungsloser ahnungsloser...