Почему пропадают/искажаются сообщения 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

Imports System
Imports System.Text
Imports Microsoft.VisualBasic
 
Public Class Form1
    Dim txt As String, ready As Boolean
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim d As Integer
        If Not SerialPort1.IsOpen Then Exit Sub
        While SerialPort1.BytesToRead > 0
            d = SerialPort1.ReadByte ' принять байт из порта
            If d <> 10 Then ' если это не конец строки
                txt = txt + Chr(d)
            Else ' если конец строки
                TextBox2.Text = txt : ready = True
            End If
        End While
    End Sub
 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then ' если нажата Enter
            Timer1.Enabled = False
            TextBox2.Text = "" : txt = ""
            ready = False
            Timer1.Enabled = True ' включить таймер для принятия данных
            e.Handled = True
            ' для правильной работы Write необходимо установить Encoding (см ниже)
            SerialPort1.Write(TextBox1.Text + Chr(10)) ' выдать в порт текст и конец строки
            TextBox1.Text = ""
            While Not ready ' ожидать получения ответа из порта
                My.Application.DoEvents()
            End While
            Timer1.Enabled = False
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' без этой установки считает рабочей 7-битную ASCII и вместо русских букв
        ' посылает и возвращает символы '?'
        ' 1251 - русские 8битные буквы в Windows
        Dim encod As Encoding = Encoding.GetEncoding(1251)
        SerialPort1.Encoding = encod
        SerialPort1.Open() ' открыть порт
    End Sub
End Class

Dim encod As Encoding = Encoding.GetEncoding(1251)
SerialPort1.Encoding = encod

Dim encod As Encoding = Encoding.Default
SerialPort1.Encoding = encod

    Private _serialPort As SerialPort ' для активного порта, который должен получить ответ
    Public oReadPort As String ' переменная для чтения ответа из COM-порта
    Private bErr As Boolean = False ' глобальный маркер ошибки в раб проги  False - норм, True - ошибка
    Private bContinue As Boolean ' переменная  для повторение попыток получения ответа из потока
    Private readThread As Thread ' переменная для отдельного потока, в котором будет работать считыватель ответов Com-порта
 
    <DllImport("user32.dll")> Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short   ' получение событий клавиатуры в процессе выполнения основного потока!
    End Function  
 
    Sub...
    ... объявление порта и отрытие
                    Dim t1 = Now.TimeOfDay ' время начала оберации
                        oReadPort = "" ' обнуляем переменную для чтения ответа из Com-порта
                        Dim oWritePort As String = "32/54/76" ' & vbCrLf ' текст сообщения
                        bContinue = True
                        readThread = New Thread(AddressOf Read)
                        readThread.Start()
                        _serialPort.WriteLine(oWritePort) 
                        Thread.Sleep(3) 
                        While bContinue
                            If InStr(oReadPort, "32/") > 0  Then
                                bContinue = False
                            End If
                            System.Windows.Forms.Application.DoEvents() 
                            Thread.Sleep(1)
                            If GetAsyncKeyState(Keys.Escape) <> 0 Then ' при нажатии на клавиатуре Esc - этот цикл прерывается
                                bContinue = False
                            End If
                        End While
                        ListBox1.Items.Add( "___" & oReadPort) ' Выводим в ListBox отправленную команду и ответ из порта
                    Dim t2 = Now.TimeOfDay ' время конца оберации
                    Dim t3 = t2.Subtract(t1)  ' продолжительность оберации
    ... прочий код обработки ответа
    End Sub
 
 
    Private Sub Read() ' метод получения ответа от Com-порта
        While bContinue
            Try
                Dim NewMess As String = ""
                NewMess = _serialPort.ReadLine()
                If NewMess <> "" Then
                    If Me.InvokeRequired Then
                        Me.Invoke(New Action(Of String)(AddressOf MessAdd), NewMess)
                    Else
                        oReadPort = NewMess
                    End If
                End If
                If GetAsyncKeyState(Keys.Escape) <> 0 Then ' при нажатии на клавиатуре Esc - этот цикл прерывается
                    bContinue = False
                End If
            Catch ex As Exception
                Debug.Print(ex.ToString)
            End Try
        End While
    End Sub
 
    Private Sub MessAdd(newValue As String)
        If Me.InvokeRequired Then ' Проверка, нужно ли использовать Invoke
            Me.Invoke(New Action(Of String)(AddressOf MessAdd), newValue)
        Else
            bContinue = False
            oReadPort = newValue
        End If
    End Sub

Imports System.IO
Imports System.IO.Ports
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 
 
Public Class Form1
 
    WithEvents _serialPort As SerialPort ' для активного порта, который должен получить ответ
    Public oReadPort As String ' переменная для чтения ответа из COM-порта
    Private bErr As Boolean = False ' глобальный маркер ошибки в раб проги  False - норм, True - ошибка
    Private bContinue As Boolean ' переменная  для повторение попыток получения ответа из потока
    Private readThread As Thread ' переменная для отдельного потока, в котором будет работатьсчитыватель ответов Com-порта
 
    <DllImport("user32.dll")> Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short   ' получение событий клавиатуры в процессе выполнения основного потока!
    End Function    'в саб If GetAsyncKeyState(Keys.Down) <> 0 Then ...
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button2.Enabled = False
        Button3.Enabled = False
        Dim oPorts As String() = SerialPort.GetPortNames()
        For Each oName In oPorts
            If oName <> "COM1" Then
                ComboBox1.Items.Add(oName)
            End If
        Next
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        bContinue = False
        Timer1.Stop()
        Try
            Button2.Enabled = True
            If Not _serialPort Is Nothing Then
                _serialPort.Dispose()
            End If
            _serialPort = Nothing
            _serialPort = New SerialPort(ComboBox1.Text)
            With _serialPort
                .BaudRate = 250000
                .Parity = Parity.None
                .StopBits = StopBits.One
                .DataBits = 8
                .Handshake = Handshake.None
                .RtsEnable = True
                AddHandler .DataReceived, AddressOf _serialPort_DataReceived
                .Open()
            End With
            Dim encod As Encoding = Encoding.Default
            _serialPort.Encoding = encod
            Button4.Enabled = True
            If _serialPort.IsOpen = False Then
                ListBox1.Items.Add("порт " & ComboBox1.Text & " не удалось открыть")
                '_serialPort.Open()
            End If
        Catch ex As Exception
            Button2.Enabled = False
        End Try
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Label4.Text = ""
        ListBox1.Items.Clear()
        Button4.Enabled = False
        If _serialPort IsNot Nothing Then
            If _serialPort.IsOpen = True Then
                Try
                    Dim t1 = Now.TimeOfDay
                    For i = 1 To CInt(TextBox1.Text)
                        Timer1.Interval = 100
                        Timer1.Start()
                        oReadPort = "" ' обнуляем переменную для чтения ответа из Com-порта
                        Dim oWritePort As String = "32/54/76" ' & vbCrLf ' Команда для отправки в порт
                        bContinue = True
                        _serialPort.WriteLine(oWritePort) '
                        While bContinue
                            System.Windows.Forms.Application.DoEvents() ' позволяет таймеру срабатывать в пределах циклв While
                            If InStr(oReadPort, "/_ v") > 0 Or InStr(oReadPort, "N") > 0 Or InStr(oReadPort, "Y") > 0 Then ' If InStr(oTextd, "3") > 0 Then
                                bContinue = False
                            End If
                            If Timer1.Enabled = False Then
                                bContinue = False
                            End If
                            If GetAsyncKeyState(Keys.Escape) <> 0 Then ' при нажатии на клавиатуре Esc - этот цикл прерывается
                                bContinue = False
                            End If
                        End While
                        ListBox1.Items.Add(i.ToString & "___" & oReadPort) ' Выводим в ListBox отправленную команду и ответ из порта
                    Next
                    Dim t2 = Now.TimeOfDay
                    If bContinue = False Then
                        Dim t3 = t2.Subtract(t1)
                        Label4.Text = t3.ToString
                    Else
                        Label4.Text = "Нет ответа"
                    End If
                Catch ex As Exception
                    bErr = True
                    Label4.Text = "Ошибка: " & ex.Message
                End Try
            Else
                Label4.Text = "Порт не открыт"
            End If
            '_serialPort.Dispose() ' освобождаем ресурсы, если они были ранее инициализированы
        Else
            Label4.Text = "Порт не инициализирован"
        End If
        Timer1.Stop()
        Button4.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick ' ограничивает время цикла запросов
        ListBox1.Items.Add("Timer Tick")
        Timer1.Stop()
    End Sub
 
    Private Sub _serialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles _serialPort.DataReceived
        Try
            Dim sp As SerialPort = CType(sender, SerialPort)
            Dim indata As String = sp.ReadExisting()
            'Debug.Print(indata)
            Me.Invoke(Sub() If oReadPort = "" Then oReadPort = indata) ' Example for updating UI from another thread
        Catch ex As Exception
            Me.Invoke(Sub() oReadPort = "err")
        End Try
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            If _serialPort IsNot Nothing Then
                If _serialPort.IsOpen = True Then
                    _serialPort.Close()
                End If
            End If
        Catch ex As Exception
            ' Обработка исключения, если необходимо
        End Try
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            If _serialPort IsNot Nothing Then
                If _serialPort.IsOpen = True Then
                    _serialPort.Close()
                End If
            End If
        Catch ex As Exception
            ' Обработка исключения, если необходимо
        End Try
    End Sub

                If ExitSignal Then
                    _Port.Close()
                    Exit While
                End If

broker.Dispose()