[begemotuk]

Привет...
Есть проблемка. С VBA знаком недавно, поетому не могу реализовать кое что. Кто чо может подсказать плз?
Проблема заключается в следующем:
Есть форма 1 в которой пользователь вводит число периодов. По нажатию кнопки, выводится форма 2, на которой находятся два поля для ввода и две кнопки (Ок и Close).
Нужно реализовать все так чтобы форма 2 не исчезала до тех пор пока пользователь не введет данные столько раз (нажатие на Ок), сколько он ввел периодов на форме 1.
Вот что пришло в голову:

Private Sub CommandButton1_Click()
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
For k = 0 To n - 1 Step 1
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
Next k
End Sub

вроде как работает, но не могу придумать условие для выхода.
Может кто что поможет, подскажет. Заранее благодарен.