Динамическое создание объектов

[Magnetic Air]

Коллеги, подскажите как динамически создать объекты своего класса clsDoc.
Так не получается:

Class clsDoc
Public Номер As String
Public Дата As Date
Public СуммаДок As Double

Sub KryaKrya()
Dim newColl as new Collection
For i =6 to 1000
  if bla_bla = blabla then
    Dim newDoc as New clsDoc
    Call newDoc.ReadData(fff, i)
    newColl.Add newDoc
  End if
Next i
End Sub

Добавляет в коллекцию один и тот же объект и выводит значения последнего, хотя в .net такое прокатывает...

[EducatedFool]

Это что за строка кода?
Class clsDoc

Весь код в одном модуле? в каком?
Прикрепите пример файла с кодом, - тогда ответ дать будет намного проще
(похоже, вы код куда-то не туда поместили)

[Magnetic Air]

EducatedFool,
Class clsDoc создан в отдельном модуле в группе Class Modules (для классов). Процедура - в форме (UserForm).

[Казанский]

Magnetic Air,

Dim newDoc as clsDoc 'объявление
'...
Set newDoc = New clsDoc 'создание

[Magnetic Air]

Казанский, благодарю. всё работает.

Рабочий пример прилагаю.