Base64 Decode

Para criar uma função em VBA que decodifica um valor em Base64 da célula A1 e coloca o resultado na célula A2, você pode usar o seguinte código. Esta função utiliza as funcionalidades de decodificação de strings do VBA para converter o texto de Base64 para o formato de texto normal.

Function DecodificarBase64(textoBase64 As String) As String
    Dim objXML As Object
    Dim objNode As Object

    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.Text = textoBase64
    DecodificarBase64 = StrConv(objNode.nodeTypedValue, vbUnicode)

    Set objNode = Nothing
    Set objXML = Nothing
End Function

Sub ConverterDeBase64()
    Dim textoBase64 As String
    Dim textoDecodificado As String

    textoBase64 = ThisWorkbook.Sheets(1).Range("A1").Value
    textoDecodificado = DecodificarBase64(textoBase64)
    ThisWorkbook.Sheets(1).Range("A2").Value = textoDecodificado
End Sub