bin2base64 функция

[alexqx]

Доброго всем дня.
Помогите, пожалуйста, разобраться.
Поставлена задача, написать на VBA функцию кодирования бинарных данных в Base64 и функцию декодирования из Base64.
В ячейке A1 есть бинарные. 10001011000101000000000000000001.
Требуются функции bin2base64(A1) и и обратную ей base642bin.
Заранее огромное спасибо.

PS 10001011 00010100 00000000 00000001 - так выглядят по байтово данные

[doober]

Я такие использую функции

Public Function DecodeBase64(ByVal strData As String) As Byte()
    Dim objXML As Object
     Dim objNode As Object
    Set objXML = CreateObject("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
Public Function EncodeBase64(ByRef arrData() As Byte) As String
   Dim objXML As Object
     Dim objNode As Object
    Set objXML = CreateObject("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