Почему пропадают/искажаются сообщения SerialPort?

Imports System.IO.Ports
Imports System.Threading
Imports System.Runtime.InteropServices
Imports System.Windows.Forms.Design
Imports System.IO
Imports System.Text

Public oNameCol As New Dictionary(Of [String], [String])() ' массив СОМ-портов с номерами ответов плат
Public oNunbCol As New Dictionary(Of [String], [String])() ' массив номеров плат с СОМ-портами
Public oNPlat As Integer = 0 '  счетчик количества подключенных плат 
Public oComPort As New List(Of SerialPort) ' коллекция СОМ-портов
Public oComSpeed As Integer = 250000 ' скорость сомпорта
Public oReadCom As String ' переменная для чтения ответа из COM-порта
Dim WithEvents mySerialPort As SerialPort
 
    Private Sub ButtR_Click(sender As System.Object, e As System.EventArgs) Handles ButtR.Click
        ReadNameCom()
     End Sub
 
    Private Sub ReadNameCom()
        Dim oPorts As String() = SerialPort.GetPortNames()
        oNPlat = 0
        oNameCol.Clear()
        oNunbCol.Clear()
        If oComPort.Count > 0 Then
            Try
                For i = 0 To oComPort.Count - 1
                    oComPort(i).Close()
                Next
            Catch ex As Exception
            End Try
        End If
        oComPort.Clear()
        For Each oName In oPorts
            If oName <> "COM1" Then
                Try
                    Try
                        Try
                            mySerialPort.Close()
                        Catch ex3 As Exception
                        End Try
                        mySerialPort = New SerialPort(oName)
                        With mySerialPort
                            .BaudRate = oComSpeed '57600 '9600
                            .Parity = Parity.None
                            .StopBits = StopBits.One
                            .DataBits = 8
                            .Handshake = Handshake.None
                            .RtsEnable = True
                            .Open()
                        End With
                    Catch ex As Exception
                    End Try
                    oReadCom = ""
                    mySerialPort.WriteLine("97/0/0/0")
                    Thread.Sleep(90)
                    oReadCom = mySerialPort.ReadExisting()
                    If oReadCom = "" Then
                        Thread.Sleep(50)
                        oReadCom = mySerialPort.ReadExisting()
                    End If
                    mySerialPort.Close()
                Catch ex2 As Exception
                End Try
                If oReadCom <> "" Then
                    oNameCol.Add(oName, oReadCom) 
                    oNunbCol.Add(oReadCom, oName) 
                    oNPlat = oNPlat + 1
                End If
            End If
        Next
        Try
            If oNunbCol.Count > 0 Then
                For i = 1 To oNunbCol.Count
                    If oNunbCol.ContainsKey(i.ToString) Then
                        ListBox1.Items.Add(i.ToString & "  -  " & oNunbCol(i.ToString))
                        oComPort.Add(New SerialPort(oNunbCol(i.ToString)))
                        With oComPort(i - 1) ' нумерация от 0
                            .BaudRate = oComSpeed '57600
                            .Parity = Parity.None
                            .StopBits = StopBits.One
                            .DataBits = 8
                            .Handshake = Handshake.None
                            .RtsEnable = True
                        End With
                    Else
                    End If
                Next
            End If
        Catch ex As Exception
            ButtR.BackColor = Color.Red
        End Try
    End Sub

    Private Sub ButStart_Click(sender As System.Object, e As System.EventArgs) Handles ButStart.Click
            For i = 1 To 100
                    SubStart()
            Next
    End Sub
 
    Private Sub SubStart()
        Dim oText As String = ""
        oText = ComsRead() ' ОТПРАВКА ЗАПРОСА
        Debug.Print(oText)
    End Sub
 
    Public oActivText As String ' переменная содержит последний ответ полученный в событии COM-порта
 
    Function ComsRead() As String ' функция отправки и получения ответа из COM-порта
        ComsRead = ""
        Try
            Dim oCallP2 As Integer = 1 ' номер платы чтения сигнала
            Dim oMess1 As String ' тест сообщения в COM-порт подачи сигнала
            oActivText = ""
            AddHandler oComPort(oCallP2).DataReceived, AddressOf DataReceivedHandler ' включение события 
            If oCallP2 = 1 Then
                oMess1 = "99/0/0/0"
                oComPort(oCallP2).WriteLine(oMess1)
            End If
            Dim oText As String = ""
            Thread.Sleep(5)
            For i = 1 To 50
                Thread.Sleep(10)
                oText = oActivText
                If oText <> "" Then
                    i = 999
                End If
            Next i
            RemoveHandler oComPort(oCallP2).DataReceived, AddressOf DataReceivedHandler 
            oComPort(oCallP2).DiscardInBuffer()
            If InStr(oText, "99") = 0 Then
                If oText <> "" Then ' просмотр кодов нештатных ответов
                    TextPin.Text = ""
                    For i = 1 To oText.Length
                        TextPin.Text = TextPin.Text & "  " & Asc(Mid(oText, i, 1))
                        Debug.Print(i.ToString & "=" & Asc(Mid(oText, i, 1)))
                    Next
                End If
            If InStr(oText, "99") = 0 Then
                oText = ""
                oComPort(oCallP2).Close()
                oComPort(oCallP2).Open()
                If oCallP2 = 1 Then
                    oMess1 = "99/0/0/0" 
                    oComPort(oCallP2).WriteLine(oMess1)
                End If
                Thread.Sleep(100) 
                oText = oComPort(oCallP2).ReadExisting()
                If oText = "" Then
                    Thread.Sleep(50) 
                    oText = oComPort(oCallP2).ReadExisting()
                End If
            End If
            ComsRead = oText
        Catch ex As Exception
        End Try
    End Function
 
    Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)
        Try
            Dim sp As SerialPort = CType(sender, SerialPort)
            Dim indata As String = sp.ReadExisting()
            oActivText = indata
        Catch ex As Exception
            oActivText = "Error DataReceivedHandler"
        End Try
    End Sub

            While Not ExitSignal  ' тут может быть токен отмены
                allowReadWrite.WaitOne() ' ждём разрешения на отправку команды
 
                If ExitSignal Then
                    Exit While
                End If
 
                While (commandQueue.TryDequeue(currentCommand) = True) And (Not ExitSignal)
                    ' если команта выгружена из очереди
                    IsReadOrWrite = True ' помечаем что идёт работа с портом
 
                    ' далее сама отправка комианды в порт
#If DEBUG Then
                    _Port.WriteLine(currentCommand)
#End If
                    ' далее приём данных из порта.
                    ' Тут должна быть проверка тайм-аута ответа,
                    Thread.Sleep(1)
                    'Thread.SpinWait(900)
                    ' проверка целостности данных и т.д.
                    Dim d As Integer
                    While _Port.BytesToRead > 0
                        d = _Port.ReadByte ' принять байт из порта
                        If d <> 10 Then ' если это не конец строки
                            txt = txt + Chr(d)
                        Else ' если конец строки
                            'currentData = txt
                        End If
                    End While
#If DEBUG Then
                    'Debug.WriteLine("Reading begin")
                    If Not txt Is Nothing Then
                        If txt.Length > 1 Then
                            If InStr((txt.Length - 1), txt, "F") > 0 Then
                                currentData = Left(txt, InStr(txt, "F") - 1)
                                txt = String.Empty
                            Else
                                ' не правильный ответ
                            End If
                        End If
                    End If
                    'Debug.WriteLine("Reading end")
#End If
                    IsReadOrWrite = False
                    Answers.Enqueue(New PortBrokerData() With {.Command = currentCommand, .Answer = currentData}) ' помещаем принятые данные в очередь
 
                    If UnloadDataProc IsNot Nothing Then
                        ' неблокирующий вызов делегата
                        syncroContext.Post(UnloadDataProc, New Object)
                    End If
                    ' вариант на событии
                    'RaiseEvent DataReceived(Me, EventArgs.Empty) ' сигнальное событие о принятии данных
                End While

#If DEBUG Then
#End If

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler broker.DataReceived, AddressOf ReadData
    End Sub
 
    Private Sub ReadData(sender As Object, e As EventArgs)
        If AnswerListBox.InvokeRequired Then
            Me.Invoke(New EventHandler(AddressOf ReadData))
        Else
            Dim currentData As PortBrokerData = Nothing
            While broker.Answers.TryDequeue(currentData)
                AnswerListBox.Items.Add(currentData.Answer)
            End While
        End If
    End Sub

#Region "Fields"
 
    ...
    ' поток записи команд
    Private _ReadWriteThread As Thread
 
    ' поток только для чтения входящих данных
    Private _ReadOnlyThread As Thread
 
    ' флаг сигнализирующий о выполнении чтения/записи в порт
    Private IsReadOrWrite As Boolean
 
    ' флаг завершения работы всех потоков
    Private ExitSignal As Boolean = False
 
    ' флаг управления жизнем ReadWriteProc
    Private ReadWriteProcActive As Boolean = True
 
    ' флаг управления жизнем ReadOnlyProc
    Private ReadOnlyProcActive As Boolean = False
    ...
 
#End Region
 
#Region "Metods"
 
    Private Sub Initialize()
        ReadWriteProcActive = True
        _ReadWriteThread = New Thread(AddressOf ReadWriteProc)
        _ReadWriteThread.Start()
    End Sub
 
    ''' <summary>
    ''' Останавливает поток ReadWriteProc. Порт при этом остается открытым.
    ''' </summary>
    Public Sub StopReadWriteProc()
        ReadWriteProcActive = False
        ' Разблокируем ожидание, чтобы поток мог завершиться
        allowReadWrite.Set()
        Try
            If _ReadWriteThread IsNot Nothing AndAlso _ReadWriteThread.IsAlive Then
                _ReadWriteThread.Join(500)
            End If
        Catch
        End Try
    End Sub
 
    ''' <summary>
    ''' Запускает поток, который только читает входящие сообщения и для каждого сообщения вызывает UnloadDataProc/событие.
    ''' </summary>
    Public Sub StartReadOnlyProc()
        If _ReadOnlyThread IsNot Nothing AndAlso _ReadOnlyThread.IsAlive Then
            Return
        End If
        ReadOnlyProcActive = True
        _ReadOnlyThread = New Thread(AddressOf ReadWriteProc2)
        _ReadOnlyThread.IsBackground = True
        _ReadOnlyThread.Start()
    End Sub
 
 
    ''' <summary>
    ''' Второй поток: только чтение входящих сообщений. Для каждого полного сообщения вызывается UnloadDataProc и событие DataReceived.
    ''' </summary>
    Private Sub ReadWriteProc2()
        Dim currentData As String = String.Empty
        Try
            While Not ExitSignal AndAlso ReadOnlyProcActive
                Try
                    ' читаем доступные байты и формируем строку до символа LF (10)
                    If _Port IsNot Nothing AndAlso _Port.IsOpen Then
                        While _Port.BytesToRead > 0
                            Dim d As Integer = _Port.ReadByte()
                            If d = -1 Then
                                Exit While
                            End If
                            If d <> 10 Then
                                currentData &= Chr(d)
                            Else
                                ' конец сообщения
                                Dim msg As String = currentData
                                currentData = String.Empty
                                Answers.Enqueue(New PortBrokerData() With {.Command = String.Empty, .Answer = msg})
 
                                If UnloadDataProc IsNot Nothing Then
                                    syncroContext.Post(UnloadDataProc, New Object)
                                End If
                                RaiseEvent DataReceived(Me, EventArgs.Empty)
                            End If
                        End While
                    End If
                Catch ex As TimeoutException
                    ' ignore read timeout
                Catch ex As Exception
                    ' possible IO exception - break loop on critical issues
                    Console.WriteLine(ex.Message)
                End Try
 
                Thread.Sleep(20) ' не даём 100% CPU в цикле
            End While
        Finally
#If DEBUG Then
            Debug.WriteLine("ReadOnly thread end")
#End If
        End Try
    End Sub
 
#End Region

    Private Sub ReadWriteProc()
        Dim currentCommand As String = String.Empty
        Dim currentData As String
        Dim iteration As Integer ' для демонстрации
        Try
            While Not ExitSignal  ' тут может быть токен отмены
                allowReadWrite.WaitOne() ' ждём разрешения на отправку команды
 
                If ExitSignal Then
                    Exit While
                End If
 
                While (commandQueue.TryDequeue(currentCommand) = True) And (Not ExitSignal)
!тут оказывается, что в поток не дошла команда. currentCommand - остается пустой
!и код сразу перескакивает на стоку:
                allowReadWrite.Reset() ' самоблокируемся до сигнала обработки новой команды

    Private Sub OnBrokerModeChanged()
        Select Case BrokerMode
            Case OperatingMode.Read
                RunOnlyRead()
            Case OperatingMode.ReadWrite
                RunReadWrite()
                RunReadWrite()  ' через повторный запуск
        End Select
    End Sub