Function to convert text to MD5 code. Error on some windows 10 computers

[Excelpromax123]

Hello everyone. I have used a function to convert a text to MD5 code. But win 10 has a number of machines that give empty results (Win 7 does not see it). Thanks for everyone's help with the code to fix it. Thank you

Code:

Public Function md5convet(textString As String) As String
On Error Resume Next
Dim enc
Dim textBytes() As Byte
Dim bytes
Dim outstr As String
Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
textBytes = textString
bytes = enc.ComputeHash_2((textBytes))
For pos = 1 To LenB(bytes)
outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2))
Next
md5convet = outstr
Set enc = Nothing
End Function

Sub Test()
MsgBox (md5convet("abc"))
End Sub

 

[RoryA]

I'd imagine those machines are missing the relevant .Net library. A pretty good example of why just putting On Error Resume Next at the top of a routine doesn't really do you any favours...

 

[Kyle123]

Not all machines will have .Net installed on them. I ran into this problem, you're much safer including the code to generate the hash in VBA

Rory beat me to it!

 

[Excelpromax123]

I'd imagine those machines are missing the relevant .Net library. A pretty good example of why just putting On Error Resume Next at the top of a routine doesn't really do you any favours...

It shows this error

 

[Kyle123]

Just include code to calculate the Hash without an external library