VBA.Элементы управления форм и функций

[Meiyo]

Исходные данные: название рейса, количество проданных билетов, стоимость одного билета.
Данные сохранить в динамическом массиве пользовательского типа (в соответствии со структурой вводимых данных).
Выдать справку: название рейса, выручка. Ввод и редактирование данных осуществлять с помощью вывода
модальной формы и с использованием различных элементов управления (ввод числовых данных должен
дублироваться ползунками-скроллами).
-----------------------------------------------------------
У меня такая проблема.На кнопке отчет, во второй форме в код как правильно условие или цикл записать??Я его по-разному вертел и либо ничего не считает, либо 1 рейс и то не любой.Или вообще виснет=((
Пробывал по-другому.Код в модуле.В аналогичной работе все работает.
------------------------------------------------------------
Вложение 38637

[Meiyo]

Вложение 38637
Вот архив