CodeItBetter Programming Another VB Programming Blog

'Arrays, Collections, Lists - How to remove all the items in a collection
'collections don't offer a native way to remove all the items in a single 
'operation, so you're forced to write a loop. Here's a general function 
'that does it for you:

Sub RemoveAllItems(col As Collection)
    Do While col.count
        col.Remove 1
    Loop
End Sub
 
'A faster way to remove all the items in a Collection is to destroy the 
'Collection object itself by setting it to Nothing or to another fresh, 
'new instance:
'Both these lines destroy the current contents of the Collection.
Set EmployeeNames = Nothing
Set EmployeeNames = New Collection
 
'This approach works only if there isn't any other object variable pointing
'to the Collection object, however.