Excel, Access VBA Function to create MD5 for text

MD5.vb

Public Function MD5Hex(textString As String) As String    
  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    
  MD5Hex = outstr    
  Set enc = Nothing
  
  End Function