Convert Base64 String to Bytes

Convert a Base64 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 base64Str As String
base64Str = "AQIDBAUGBwgJCgsMDQ4P"
arr = crypt.Decode(base64Str,"base64")

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