Public Function Base64Enc(ByRef vxbData() As Byte) As String
With CreateObject("MSXML.DOMDocument").createElement("Base64")
.dataType = "bin.base64"
.nodeTypedValue = vxbData
Base64Enc = .Text
End With
End Function
Public Function Base64Dec(ByRef vsData As String) As Byte()
With CreateObject("MSXML.DOMDocument").createElement("Base64")
.dataType = "bin.base64"
.Text = vsData
Base64Dec = .nodeTypedValue
End With
End Function