Option Base 1
Option Explicit
Option Private Module
'==================================================================================================
Const nDic& = 500, nEl& = 50000
'==================================================================================================
Private Sub FillTmp(dic As Dictionary)
Dim n&
    Set dic = New Dictionary

    For n = 1 To nEl
        dic.Add n, 0
    Next n
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub Test_Bad()
Dim dic As Dictionary
Dim aDic() As Dictionary
Dim t!, n&

t = Timer
    ReDim aDic(nDic)

    For n = 1 To nDic
        FillTmp dic
        Set aDic(n) = dic
    Next n
Debug.Print Round(Timer - t, 2) ' ~ 9.5 sec

End Sub
'==================================================================================================
'==================================================================================================
Private Sub FillArr(dic As Dictionary)
Dim n&
    For n = 1 To nEl
        dic.Add n, 0
    Next n
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub Test_Good()
Dim aDic() As New Dictionary
Dim t!, n&

t = Timer
    ReDim aDic(nDic)
    
    For n = 1 To nDic
        FillArr aDic(n)
    Next n
Debug.Print Round(Timer - t, 2) ' ~ 9.5 sec

End Sub
'==================================================================================================