В Excel как можно текст заменить на уникальный номер или на хэш значения - VB

Sub Test_HashVal()
Dim s$, h$, clS As New Collection, clH As New Collection, i&, j&
Dim di As Object: Set di = CreateObject("scripting.Dictionary")
  On Error Resume Next
  Do
1   s = ""
    For i = 3 To 3 + Int(Rnd * 8)
      s = s & Chr$(65 + Int(Rnd * 26))
    Next
    clS.Add 0, s
    If Err Then Err.Clear: GoTo 1

    h = di.HashVal(s)
    clH.Add s, h
    If Err Then
      Err.Clear
      Debug.Print "Одинаковый хеш: "; h, "для строк "; s; " и "; clH(h)
      j = j + 1
    End If
  Loop Until j = 10
End Sub