Option Explicit
Option Private Module
'====================================================================================================
Sub Test()
    Tester
End Sub
'====================================================================================================
Private Sub Tester(Optional fLong As Boolean)
Dim BVdic As New BedvitCOM.UnorderedMap
Dim coll As New Collection
Dim dic As New Dictionary
Dim arrNum(), arrOut(), arrData()
Dim x, txName$, key$, vl$, t!, r&, c&, n&
Dim fColl As Boolean, fDic As Boolean

arrOut = Range("_out").Value2
arrNum = Range("_num").Value2
Application.StatusBar = "Prepare …"

ReDim arrData(1 To 1000000, 1 To 2)
    For r = 1 To UBound(arrData, 1)
'        arrData(r, 1) = r
'        arrData(r, 1) = "_" & r

        arrData(r, 1) = "test string #" & r
        If fLong Then arrData(r, 1) = "_very long string only for this test becase NOBODY use such crazy KEYS in his project | " & arrData(r, 1)
        arrData(r, 2) = "val " & r
    Next r

fColl = True: fDic = True

rep:
If fColl Then txName = "Coll":  c = 1:  GoTo nx1
If fDic Then txName = "Dict":   c = 2:  GoTo nx1
txName = "BedVit": BVdic.Clear: c = 3
nx1:
    For r = 1 To UBound(arrNum, 1)
        Application.StatusBar = "«" & txName & "». Testing on " & Format$(arrNum(r, 1), "#,##0") & " elements": DoEvents

        t = Timer '----------------------------------------------------------
        For n = 1 To arrNum(r, 1)
            key = arrData(n, 1)
            vl = arrData(n, 2)

            If fColl Then coll.Add vl, key: GoTo nx2
            If fDic Then dic.Add key, vl: GoTo nx2
            If BVdic.TryEmplace(key, vl) = 0 Then Debug.Print key, vl: Err.Raise xlErrNA
nx2:    Next n
        arrOut(r, c) = Format$(1000 * (Timer - t), "0")                 ' Add

        t = Timer '----------------------------------------------------------
        For n = 1 To arrNum(r, 1)
            key = arrData(n, 1)
            vl = arrData(n, 2)

            If fColl Then
                x = coll(key)
                If x <> vl Then Debug.Print x, vl: Err.Raise xlErrNA
                GoTo nx3
            End If
            If fDic Then
                x = dic(key)
                If x <> vl Then Debug.Print x, vl: Err.Raise xlErrNA
                GoTo nx3
            End If
            If BVdic.Find(key, x) = 0 Then Err.Raise xlErrNA
            If x <> vl Then Debug.Print x, vl: Err.Raise xlErrNA
nx3:    Next n
        arrOut(r, 3 + c) = Format$(1000 * (Timer - t), "0")             ' Find

        t = Timer '----------------------------------------------------------
        If fColl Then Set coll = New Collection: GoTo nx4
        If fDic Then dic.RemoveAll: GoTo nx4
        BVdic.Clear
nx4:    arrOut(r, 6 + c) = Format$(1000 * (Timer - t), "0")             ' Clear

    Next r

If fColl Then fColl = False:    GoTo rep
If fDic Then fDic = False:      GoTo rep

Application.StatusBar = False
Range("_out").Value2 = arrOut
MsgBox "DONE", vbInformation
End Sub
'====================================================================================================
Private Function CollExists(key$, coll As Collection) As Boolean
    On Error Resume Next
    coll.Item key
    If Err = 0 Then CollExists = True
    On Error GoTo 0
End Function
'====================================================================================================