Отослать команду по RS-232 и получить ответ

With SerialPort1
 Try
 _SerialPort1.PortName = nPort
 Catch ex As Exception
 'comOpen = False
 Console.WriteLine("Error Open: " & ex.Message)
 MsgBox("COM Port Connection Is Missing ")
 Exit Sub
 End Try
 _SerialPort1.BaudRate = 230400
 SerialPort1.Parity = IO.Ports.Parity.None
 SerialPort1.DataBits = 8
 SerialPort1.StopBits = IO.Ports.StopBits.One
 ' Set the read/write timeouts
 SerialPort1.ReadTimeout = 60000
 SerialPort1.WriteTimeout = 10000
 
 End With
 Try
 SerialPort1.Open()
 Catch ex As Exception
 'comOpen = False
 Console.WriteLine("Error Open: " & ex.Message)
 MsgBox("COM Port Connection Is Missing ")
 Exit Sub
 End Try
Dim arCommand(10) As Byte
 arCommand(0) = &HB1
 arCommand(1) = &H66
 arCommand(2) = &H1
 arCommand(3) = &H0
 arCommand(4) = &H0
 arCommand(5) = &H0
 arCommand(6) = &H0
 arCommand(7) = &H2
 arCommand(8) = &HA7
 arCommand(9) = &H8D
 arCommand(10) = &H0
 SerialPort1.Write(arCommand, 0, 10)
 For i = 1 To 10 'Delay
 Threading.Thread.Sleep(10)
 Application.DoEvents()
 Next
 Dim test As String
 test = SerialPort1.ReadExisting

 Dim arCommand() As Byte = {&HB1, &H66, &H1, &H0, &H0, &H0, &H0, &H2, &HA7, &H8D, &H0}
                SerialPort1.Write(arCommand, 0, arCommand.Length)
                For i = 1 To 10                                               'Delay
                    Threading.Thread.Sleep(10)
                    Application.DoEvents()
                Next
                               Threading.Thread.Sleep(10)
                    Application.DoEvents()
                Next
              Dim Count As Integer = SerialPort1.BytesToRead
            Dim Buffer(0 To Count - 1) As Byte
            Dim Text2Display As String = ""
            SerialPort1.Read(Buffer, 0, Count)
            For I As Integer = 0 To Buffer.GetUpperBound(0)
                Text2Display += Buffer(I).ToString("X2") & " "
            Next