Давайте в исходном классе Auto создадим два свойства: название и номер автомобиля.

И соберем COM DLL. Cоздадим проект для тестирования. Подключаем COM DLL. На форму помещаем две кнопки.

И код к ним.

Dim colauto As CollectionCollection



Private Sub Command1_Click()

colauto.Add

End Sub



Private Sub Command2_Click()

MsgBox Str(colauto.Count)

End Sub



Private Sub Form_Load()

Set colauto = New CollectionCollection

End Sub



Private Sub Form_Terminate()

Set colauto = Nothing

End Sub

При загрузке формы мы создаем коллекцию. При выгрузке удаляем ее. Ну, а по нажатию на кнопку добавляем элементы и удаляем.