excel中的MD5哈希函数？

Function MD5Hash(ByVal input As String) As String
    Dim md5Obj As Object
    Dim bytes() As Byte
    Dim result() As Byte
    Dim i As Long

    Set md5Obj = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    bytes = StrConv(input, vbFromUnicode)
    result = md5Obj.ComputeHash(bytes)

    MD5Hash = ""
    For i = LBound(result) To UBound(result)
        MD5Hash = MD5Hash & Right("0" & Hex(result(i)), 2)
    Next i
End Function