Public Function Hash(ByVal text As String) As String
a = 1
For i = 1 To Len(text)
    a = Sqr(a * i * Asc(Mid(text, i, 1))) 'Numeric Hash
Next i
Rnd (-1)
Randomize a 'seed PRNG

For i = 1 To 10
    Hash = Hash & Chr(65 + Int(Rnd * 26))
Next i
End Function

c'est sale hein? mais ça a le mérite de dépanner...