(1)
Dim col as collection
Set col = New Collection
(tu was mit col)
Set col=nothing
SetCol = new Collection
 
(2)
Dim col as collection
Set col = New Collection
(tu was mit col)
For i = 1 to col.Count
    col.Remove 1 'wichtig: nicht i, sd. 1, weil immer das erste Element 
    ' entfernt wird
Next