Collection & Error 'Object required'

[MIB]

Ситуация такая - я добавляю в коллекцию элементы типа Integer.

Код: Выделить всё

    Do While fname <> ""
       Open fld + "\" + fname For Input As #2
       If FindinCol(sbt, fname) = 0 Then
          towns.Add fname
          sbt.Add 0, fname
          sbuja.Add 0, fname
       End If


эти элементы потом использую для суммирования.

Код: Выделить всё

...
sbuja(fname) = sbuja(fname) + Val(Mid(l$, p + 5))
...


Вот тут и выдает ошибку "Object required", почему нельзя присваивать значения элемента коллекции?

[alibek]

Во-первых, для объектов надо задавать Set. А во-вторых надо использовать массив, а не коллекции.

[GoGosha]

Item у коллекции - функция
Но если создать класс, то моно так:

Dim a As Class1
Set a = colObject(Index)
a.Value = 5