Hola tengo dos funciones de hice yo no será el Hash que quieres pero a mi me andan muy bien te paso las funciones.
Dim TextoEncriptado As String
Private Function Encriptar(ByVal Texto As String) As String
TextoEncriptado = ""
For i = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, i, 1)) + 1)
Next i
Encriptar = TextoEncriptado
End Function
Private Function DesEncriptar(ByVal Texto As String) As String
TextoEncriptado = ""
For i = 1 To Len(Texto)
TextoEncriptado = TextoEncriptado & Chr(Asc(Mid(Texto, i, 1)) - 1)
Next i
DesEncriptar = TextoEncriptado
End Function
Saludos, Felipe