private Sub HEXtoINT(HEX As String) As Int
Dim Conv As ByteConverter
Dim Value() As Byte
Value = Conv.HexToBytes(HEX)
Return Value(0)
' Dim Conv As ByteConverter
' Dim Value() As Int
'
' Value = Conv.IntsFromBytes(Conv.HexToBytes(HEX))
'
' Return Value(0)
End Sub