我的组件之Base64.dll(Base64编/解码效率奇高)

(声明：魏滔序原创，转贴请注明出处。)
我的组件之Base64.dll(Base64编/解码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。
下载地址： http://www.chenoe.com/developer/library/base64.dll

'示例代码：
Option Explicit
Private Declare Sub Base64Encode Lib "Base64" (ByRef Destination() As Byte, ByRef Source() As Byte)
Private Declare Sub Base64Decode Lib "Base64" (ByRef Destination() As Byte, ByRef Source() As Byte)

Private Sub Command1_Click()
    Dim a() As Byte
    Dim b() As Byte
   
    a = StrConv("热爱祖国，热爱人民。", vbFromUnicode)
    Base64Encode b, a
    Debug.Print StrConv(b, vbUnicode)
   
    Base64Decode b, b
    Debug.Print StrConv(b, vbUnicode)
   
End Sub

Private Sub Command2_Click()
    Dim a() As Byte
    Dim b() As Byte
    Dim c() As Byte
   
    Dim Base64 As New Base64Lib.Base64
    a = StrConv("热爱祖国，热爱人民。", vbFromUnicode)
    Base64.Encode b, a
    Debug.Print StrConv(b, vbUnicode)
   
    Base64.Decode c, b
    Debug.Print StrConv(c, vbUnicode)
End Sub