У класса Collection одно свойство - Count и 3 метода: Add, Item, Remove. Рассмотрим их подробнее:    
 
Свойство Count возвращает число элементов коллекции. Доступно только для чтения, имеет тип возвращаемого значения Long.  
Метод Add (item, key, before, after) добавляет элементы в коллекцию. Первый параметр Item является обязательным и задает добавляемый элемент. Параметр key - необязателен, он задается, когда элементу ставится в соответствие ключ. Два последних необязательных параметра уточняют позицию вставки, - задают индекс или ключ элемента, перед или после которого добавляется новый элемент. Только один из этих параметров может быть задан. Если не задан ни один, элемент добавляется в конец коллекции.  
Метод Remove(key) удаляет элементы коллекции. Удаляется элемент с заданным ключом: заметьте, это может быть индекс элемента. После удаления происходит перенумерация элементов и уменьшается счетчик Count.  
Метод Item(key) возвращает значение элемента списка с заданным ключом. И здесь в роли ключа может выступать обычный индекс элемента.

{quote}{login=:)}{date=24.02.2011 03:04}{thema=}{post}Так: Set MyCol = Nothing  
Или так: Set MyCol = New Collection{/post}{/quote}Пример:  
 
Sub CollectionClearAll()  
 Dim MyCol As New Collection  
 MyCol.Add 1, "One"  
 MyCol.Add 2, "Two"  
 Debug.Print MyCol.Count  
 Set MyCol = Nothing ' или  Set MyCol = New Collection  
 Debug.Print MyCol.Count  
End Su

{quote}{login=:)}{date=24.02.2011 03:06}{thema=}{post}  
End Su{/post}{/quote}End Sub  
:)

Да, работает ... только теперь надо очистить массив arr ... надо в другой теме это спрашивать? да?

С Вашей помощью все получилось.    
 
Благодарю всех.