对于vb6中的某些字节数据，将字节数据编码为base64会崩溃

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Function Base64Encode(data() As Byte) As String
    Dim objXML As Object
    Dim objNode As Object
    
    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")
    
    ' Load the byte array into a SafeArray
    Dim saData() As Byte
    ReDim saData(0 To UBound(data)) As Byte
    CopyMemory saData(0), data(0), UBound(data) + 1
    
    ' Encode the SafeArray using MSXML
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = saData
    Base64Encode = objNode.Text
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

Dim data() As Byte
data = Array(65, 66, 67) ' 示例字节数据

Dim encodedData As String
encodedData = Base64Encode(data)

MsgBox encodedData ' 输出编码后的Base64字符串