'Importamos los dos espacios de nombres necesarios(uno para la codificación UTF y otro para el MD5)
 
Imports System.Text 
Imports System.Security.Cryptography
 Module MD5 
'Declaramos la función GenerarHash de manera publica 
'para que podamos acceder a ella desde cualquier parte de la aplicación 
Public Function GenerarHash(ByVal Texto As String) As String 
'Creamos un objeto de codificación Unicode que
 'representa una codificación UTF-16 de caracteres Unicode. 
Dim Codificar As New UnicodeEncoding() 
'Declaramos una matriz (array) de tipo Byte para recuperar dentro los bytes del texto
 'utilizando el objeto Codificar
 Dim ByteTexto() As Byte = Codificar.GetBytes(Texto) 
'Instanciamos el objeto MD5 
Dim Md5 As New MD5CryptoServiceProvider() 
'Se calcula el Hash del Texto en bytes 
Dim ByteHash() As Byte = Md5.ComputeHash(ByteTexto)
 'convertimos el texto en bytes en texto legible(cadena) 
Return Convert.ToBase64String(ByteHash)
 'Eliminamos los objetos usados con Nothing
 Codificar = Nothing 
ByteTexto = Nothing
 End Function 
End Module

'Declaramos una variable de tipo cadena donde se almacenará el resultado
Dim Ret As String = GenerarHash("Hola") 
'La variable Ret contiene la cadena en MD5 
'Podemos insertar un Label para visualizarla de esta manera 
Label1.Text = Ret