Forms, немодальные и модальные

[Avtopic]

Здравствуйте!
Нужен совет по следующей проблеме:

Sub New_Move ()
…
'в начале идет проверка очень многих условии, для того чтобы New Move разрешено било проводить.
Если все проверки прошли успешно

f1 = 0
Form_Doc.Show
If f1 <> 1 Then Exit Sub ' проблема здесь

' Если в форме нажали OK, то f1 = 1 и действие продолжается
…
End Sub

В Form_Doc заполняется огромная накладная. В нем же можно вызывать пять различных форм, чтобы выбирать из справочников, редактировать справочники и т.д.
Все формы, включая Form_Doc, били модальные. Понадобилось, чтобы все били немодальные, но в этом случае точка в коде - ' проблема здесь (см. выше) проходит без остановки.
Код очень большой, не хочу переписывать.
Посоветуйте, как остановится в форме, чтобы ждать окончания действии пользователя.

[Avtopic]

Sorry, Все в Excel-e.

[alibek]

Переписывать придется.

[Avtopic]