Convert Hex String to Bytes

Convert a hexidecimal string to a Visual Basic byte array.

Download Chilkat Crypt ActiveX

'  Byte array in Visual Basic 6.0
Dim arr() As Byte

Dim crypt As New ChilkatCrypt2

Dim success As Long
success = crypt.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    Exit Sub
End If

'  Decode a hex string to a byte array:
Dim hexStr As String
hexStr = "0102030405060708090A0B0C0D0E0F"
arr = crypt.Decode(hexStr,"hex")

'  
For i = LBound(arr) to UBound(arr)
    Print arr(i)
Next