Imports System.Security
Imports System.Security.Cryptography
 
Private Function MD5_Hash(ByVal TextToHash As String) As String
        Dim md5 As MD5CryptoServiceProvider
        Dim bytValue() As Byte
        Dim bytHash() As Byte
        md5 = New MD5CryptoServiceProvider
        bytValue = System.Text.Encoding.UTF8.GetBytes(TextToHash)
        bytHash = md5.ComputeHash(bytValue)
        md5.Clear()
        Return Convert.ToBase64String(bytHash)
    End Function