.NET功能强大，众所周知。在VBA中，也可以调用.NET中编写的DLL动态链接库，丰富VBA的不足之处。在VBA中调用.NET编写的DLL（动态链接库）通常涉及使用COM Interop（组件对象模型互操作性）来桥接VBA和.NET之间的鸿沟。这通常意味着你需要将.NET DLL公开为COM可见的对象，以便VBA能够与之交互。

在VBA，Base64编码和解码并不是内置的功能。但是可以借用.NET的功能给VBA封装Base64相关方法。接下来按照上述步骤创建一个完整的库用来在VBA调用。

在Visual Studio创建DLL

该DLL对外提供MD5函数，弥补VBA没有MD5函数的不足。

DLL名：VBADotNetLibrary.dll

Class名：Tools

方法名：base64Encode,base64Decode

参考代码如下。需要在visual studio中输入该代码，然后编译成DLL。

using System;
using System.Runtime.InteropServices;
using System.Security.Cryptography;
using System.Text;

/**
 * 1, 在Visual Studio开始菜单中找到 Developer Command Prompt for VS 2022，用管理员权限运行
 * 2, 切换到dll目录
 * 3, 根据dll生成对应的tlb。tlbexp xx.dll
 * 4, 注册dll。regasm /codebase xx.dll
 * 5, 在vba中浏览并引用对应的tlb文件
 * 
 */
namespace VBADotNetLibrary
{
    [ComVisible(true)]
    [Guid("E5C41D4C-C874-418A-8A3F-04FD183B7596")]
    [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    public interface IMyInterface
    {
        [ComVisible(true)]
        string base64Encode(string src);

        [ComVisible(true)]
        string base64Decode(string src);
    }


    [ComVisible(true)]
    [Guid("591BF508-A3F1-4C89-990B-A00A164820A0")]
    [ClassInterface(ClassInterfaceType.None)]
    public class Tools:IMyInterface
    {
        public string base64Decode(string src)
        {
            return Encoding.UTF8.GetString(Convert.FromBase64String(src));
        }

        public string base64Encode(string src)
        {
            return Convert.ToBase64String(Encoding.UTF8.GetBytes(src));
        }
    }
}

生成tlb格式组件

在Visual Studio开始菜单中找到 Developer Command Prompt for VS 2022，或者其他版本，用管理员权限运行。切换到生成好的DLL文件所在目录，运行tlbexp命令，生成tlb文件。DLL名字换成自己库的名字。

tlbexp VBADotNetLibrary.dll

注册DLL

还是在DLL所在目录，注册我们刚刚生成的DLL文件。

regasm /codebase VBADotNetLibrary.dll

在VBA中引用组件

在VBA编辑器中，点击菜单 工具 -> 引用，在弹出对话框中选择生成的tlb文件，完成组件引用。

调用DLL

参考以下方式，调用DLL中的方法。

Sub testDotNetBase64()
    Dim obj As New VBADotNetLibrary.Tools
    
    src = "hello world"
    base64_encoded = obj.base64Encode(src) ' aGVsbG8gd29ybGQ=
    MsgBox base64_encoded
    
    base64_decoded = obj.base64Decode(base64_encoded)
    MsgBox base64_decoded
End Sub