(Excel) Base64 Encode/Decode a String

Excel example to base-64 encode and decode a string.

Download Excel Class Modules Chilkat Excel Class Modules

Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData


s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"


success = bd.AppendString(s,"utf-8")


strBase64 = bd.GetEncoded("base64")
Debug.Print strBase64

' To decode:
Dim bd2 As Chilkat.BinData
Set bd2 = Chilkat.NewBinData
success = bd2.AppendEncoded(strBase64,"base64")


decoded = bd2.GetString("utf-8")
Debug.Print decoded