ник: snipe
Ваша проблемка в том что глобальный модуль не знает с какой формой работать
1. вот тут надо добавить
Public function NewPage(ByVal vNewValue As Variant, nameform as string)
2. вот тут изменить
With forms(nameform)
3. функцию вызывать как-то так
call NewPage (2, me.name)