BelowZero,

что Вам надо бог его знает, всё что у меня есть:
пример по коллекциям
Dim col As New Collection
col.Add "First", "K"
col.Add "Second", "K1"
col.Add "Third", "K2"
MsgBox$ col.Item("K")
MsgBox$ col.Item("K1")
MsgBox$ col.Item("K2")
MsgBox$ col.Item(1)
MsgBox$ col.Item(2)
MsgBox$ col.Item(3)
'в отличие от массивов, элементы коллекций нумеруются с 1
Размер_коллекции = col.Count
'добавляем в коллекцию элемент и, если получаем ошибку, то такой элемент существует
'метод Add позволяет вставлять элементы в коллекцию туда, куда требуется
'просто для этого нужно использовать аргументы
'Before (перед) и After (после), можно указывать номер в коллекции или имя в коллекции
'Before - третий параметр, After - чётвертый параметр
col.Add "ri", "ty", 2 'запись "ri" со значением "ty", Before (перед) - третий параметр
col.Add "ris", "tys", , "K2" 'запись "ris" со значением "tys", After (после)- чётвертый параметр

Размер_коллекции1 = col.Count
'метод Remove удаляет элемент из коллекции
'объект для удаления можно задать либо с помощью индекса, либо с помощью имени
col.Remove 2
col.Remove "K2"
'при удалении элемента коллекции VBA, так сказать, "заполняет дыры" — номера всех элементов, следующих за удалённым, уменьшатся на 1
Размер_коллекции1 = col.Count