Private Function ByteToHex(ByVal comByte As Byte()) As String
        Dim builder As New StringBuilder(comByte.Length * 3)
        For Each data As Byte In comByte
            builder.Append(Convert.ToString(data, 16).PadLeft(2, "0"c)) _
              '.PadRight(3, " "c))
        Next
        Return builder.ToString().ToUpper()
    End Function