Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Function DecodeBase64(ByVal strData As String) As Byte()
- Dim objXML As Object 'MSXML2.DOMDocument
- Dim objNode As Object 'MSXML2.IXMLDOMElement
- 'get dom document
- Set objXML = CreateObject("MSXML2.DOMDocument")
- 'create node with type of base 64 and decode
- Set objNode = objXML.createElement("b64")
- objNode.DataType = "bin.base64"
- objNode.Text = strData
- DecodeBase64 = objNode.nodeTypedValue
- 'clean up
- Set objNode = Nothing
- Set objXML = Nothing
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement