编码转换对象版，支持Base64加解码

adoStream.创建 (“ADODB.Stream”, )
adoStream.写属性 (“Charset”, “gb2312”)
adoStream.写属性 (“Type”, 1) ' Type 指定或返回的数据类型，可选参数为：字节集 =1 文本型 =2
adoStream.写属性 (“Mode”, 3)
adoStream.方法 (“Open”, )
变体型.赋值 (bin, )
adoStream.方法 (“Write”, 变体型)
adoStream.写属性 (“Position”, 0)
adoStream.写属性 (“Type”, 1)
xmlDoc.创建 (“MSXML2.DOMDocument”, )
xmlNode ＝ xmlDoc.对象型方法 (“createElement”, “MyNode”)
xmlNode.写属性 (“dataType”, “bin.base64”)
变体型 ＝ adoStream.通用方法 (“Read”, )
xmlNode.写属性 (“nodeTypedValue”, 变体型)
Base64Encode ＝ xmlNode.读文本属性 (“Text”, )
adoStream.方法 (“Close”, )
xmlDoc.方法 (“Close”, )
xmlNode.方法 (“Close”, )