Friend Class Program
' Methods
Private Shared Sub Main()
Dim p As Byte() = Program.String2ByteArray("123456789")
End Sub
Private Shared Function String2ByteArray(ByVal p As String) As Byte()
Dim len As Integer = IIf(((p.Length Mod 2) = 0), (p.Length / 2), ((p.Length / 2) + 1))
Dim