DelCollection

Do While col.Count > 0
col.Remove col.Count
Loop
' This code removes items in first-in-first-out order

' and is much faster:

Do While col.Count > 0
col.Remove 1
Loop
' Setting the collection to Nothing is faster still:

Dim col As Collection
' Allocate the collection and use it.

Set col = New Collection

' Destroy the collection.

Set col = Nothing