Function GetMD(s As String)
    '引用 ComMD5 1.0 Type Library
    '该类库定位于 msppmd5.dll
    '使用命令：REGSVR32.EXE C:\msppmd5.dll 可以注册，保证md5文件路径正确即可注册
    Dim a As New CoMD5
    GetMD = a.MD5Hash(s)
End Function

Sub test()
Dim s$
s = InputBox("输入")
ls = GetMD(s)
If ls = [a1] Then MsgBox "ok" Else MsgBox ls
End Sub

上述 MD5 类库你可以到以下地址下载： 点击进下载页面