Encode Decode Base64 Menggunakan MSXML

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