Sub test()
     Dim i&, tm!
     '----------------------------------------
     tm = Timer
     With New Collection
         For i = 1 To 1000000
             .Add Key:=CStr(i), Item:=i
         Next
     End With
     Debug.Print "Collection_Add", Timer - tm
     '----------------------------------------
     tm = Timer
     With CreateObject("Scripting.Dictionary")
         For i = 1 To 1000000
             .Add Key:=CStr(i), Item:=i
         Next
     End With
     Debug.Print "Dictionary_Add", Timer - tm
     '----------------------------------------
     tm = Timer
     With CreateObject("Scripting.Dictionary")
         For i = 1 To 1000000
             .Item(i) = i
         Next
     End With
     Debug.Print "Dictionary_Item", Timer - tm
     '----------------------------------------
     tm = Timer
     With New JScript
         .LoadFromRange Range("a1.a6")
         .Control.Run ("foo")
     End With
     Debug.Print "JScript", Timer - tm
End Sub