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

Одинаковый хеш: 892         для строк SMISZM и TBOLN
Одинаковый хеш: 531         для строк BJASMSL и ZKRO
Одинаковый хеш: 531         для строк BIRSVQ и ZKRO
Одинаковый хеш: 66          для строк BGAH и FM
Одинаковый хеш: 254         для строк NWXRYEH и QN
Одинаковый хеш: 139         для строк PMTCLJG и WCAMX
Одинаковый хеш: 73          для строк I и GC
Одинаковый хеш: 334         для строк UZ и MDJZQMC
Одинаковый хеш: 1091        для строк JKIYQH и FIBB
Одинаковый хеш: 262         для строк LGHOV и INIBQIA