Option Base 1
Option Explicit
Option Private Module
'====================================================================================================
Dim x, t!, tt!, nE&, nC&
Const tx$ = "TestValue", nEl& = 10000, nCyc& = 1000
'====================================================================================================
Sub TestArray()
Dim arr()

tt = Timer: t = Timer
    ReDim arr(nEl)
    For nE = 1 To nEl
        arr(nE) = tx
    Next nE
Debug.Print "Array", "Fill", Format$(Timer - t, "0.000 sec")   ' 0.000

t = Timer
    For nC = 1 To nCyc
        For nE = 1 To nEl
            x = arr(nE)
        Next nE
    Next nC
Debug.Print "Array", "Get", Format$(Timer - t, "0.000 sec")     ' 0.438
Debug.Print "Array", "Total", Format$(Timer - tt, "0.000 sec")  ' 0.438
End Sub
'====================================================================================================
Sub TestDic()
Dim dic As New Dictionary

tt = Timer: t = Timer
    For nE = 1 To nEl
        dic.Add nE, tx
    Next nE
Debug.Print "Dic", "Fill", Format$(Timer - t, "0.000 sec")      ' 0.000

t = Timer
    For nC = 1 To nCyc
        For nE = 1 To nEl
            x = dic(nE)
        Next nE
    Next nC
Debug.Print "Dic", "Get", Format$(Timer - t, "0.000 sec")       ' 1.484
Debug.Print "Dic", "Total", Format$(Timer - tt, "0.000 sec")    ' 1.484
End Sub
'====================================================================================================
Sub TestColl()
Dim coll As New Collection

tt = Timer: t = Timer
    For nE = 1 To nEl
        coll.Add tx, CStr(nE)
    Next nE
Debug.Print "Coll", "Fill", Format$(Timer - t, "0.000 sec")      ' 0.031

t = Timer
    For nC = 1 To nCyc
        For nE = 1 To nEl
            x = coll(CStr(nE))
        Next nE
    Next nC
Debug.Print "Coll", "Get", Format$(Timer - t, "0.000 sec")       ' 14.195
Debug.Print "Coll", "Total", Format$(Timer - tt, "0.000 sec")    ' 14.226
End Sub
'====================================================================================================