1) Код, по всей видимости, приведен не полностью (приведена только одна процедура), вложенные не приведены, и вообще, что за новость выкладывать код в виде вордовского файла, а не рабочего VB6 проекта.

2) Задача не очень сложная, но время на нее придется потратить, поэтому вы либо
а) пытаетесь потратить его сами, задавая конкретные вопросы здесь по тому, что не получается, и получать здесь ответы.
б) публикуете задачу в разделе "Работа" с указанием суммы (ну либо с просьбой предложить варианты). Отсюда можете дать ссылку на ту ветку.