Private Sub ButtonTestBinary_Click(sender As Object, e As EventArgs) Handles ButtonTestBinary.Click
    Dim data As Byte() = New Byte() {25, 31, 117, 3, 19, 55, 200}
    Dim Hex As String = BitConverter.ToString(data).Replace("-", ",")
    MsgBox(Hex)
    Dim HexSimple As String = Hex.Replace(",", String.Empty)
    Dim data2 As Byte() = Enumerable.Range(0, HexSimple.Length).Where(Function(x) x Mod 2 = 0).[Select](Function(x) Convert.ToByte(HexSimple.Substring(x, 2), 16)).ToArray()
    Dim strPrint As String = ""
    For Each b As Byte In data2
      strPrint = strPrint & b.ToString & vbCrLf
    Next
    MsgBox(strPrint)
  End Sub

  Private Sub ButtonTestBinary_Click(sender As Object, e As EventArgs) Handles ButtonTestBinary.Click
    Dim data As Byte() = New Byte() {25, 31, 117, 3, 19, 55, 200}
    Dim Hex As String = BitConverter.ToString(Data).Replace("-", ",")
    MsgBox(Hex)

    Dim strMas As String() = Hex.Split({","}, StringSplitOptions.RemoveEmptyEntries)
    Dim data2(UBound(strMas)) As Byte
    For i As Integer = 0 To UBound(strMas)
      data2(i) = Convert.ToByte(strMas(i), 16)
    Next

    Dim strPrint As String = ""
    For Each b As Byte In data2
      strPrint = strPrint & b.ToString & vbCrLf
    Next
    MsgBox(strPrint)
  End Sub

  Public Function HexStringToByteArray(ByVal sHexString) As Byte()
    'конвертирует строку в формате hex вида "6d,00,46,00" в массив байтов
    Dim strMas As String() = sHexString.Split({","}, StringSplitOptions.RemoveEmptyEntries)
    Dim data(UBound(strMas)) As Byte
    For i As Integer = 0 To UBound(strMas)
      data(i) = Convert.ToByte(strMas(i), 16)
    Next
    Return data
  End Function

  Public Function ByteArrayToHexString(ByVal data As Byte()) As String
    'конвертирует массив байтов в строку в формате hex вида "6D,00,46,00"
    Return BitConverter.ToString(data).Replace("-", ",")
  End Function

        If UCase(sHex) <> UCase(sHexValue) Then
          AddLog("    Error. Invalid value: 'hex:" & sHex & "'")