Code:
Dim Num As Int16 = 1
Dim array As Byte() = BitConverter.GetBytes(Num)
Dim output As String = BitConverter.ToString(array, 0)
Dim outputarray() As String = Split(output, "-")
output = outputarray(0) & outputarray(1)
Leave a comment: