VB6 将byte数组与Base64的string的相互转换

Public Function encodeBase64(ByRef arrData() As Byte) As String
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    Set objXML = New MSXML2.DOMDocument
    
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    encodeBase64 = objNode.Text
 
    Set objNode = Nothing
    Set objXML = Nothing
End Function

Public Function decodeBase64(ByVal strData As String) As Byte()
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    decodeBase64 = objNode.nodeTypedValue
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

MSXML2.DOMDocument需要引用：

测试：

与C#对比：

本文引用：https://thydzik.com/vb6vba-functions-to-convert-binary-string-to-base64-string/

还有一个地方，可以使用VB6转换Base64与Byte数组，utf-8字符与Byte数组的相互转换：https://github.com/blackwaterbread/UTF8-Base64-for-VB6