Кросс:
http://programmersforum.ru/showthread.php?t=304965
http://programmersforum.ru/showthread.php?t=304965
Форум на данный момент в стадии обновления. Если у Вас возникли проблемы со входом в свою учетную запись - просьба писать на email: info@excel-vba.ru
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Просмотр сообщений
If Me.Controls("TextBox" & lii).Value <> "" Xor Me.Controls("TextBox" & lii + 6).Value <> "" Then
s = True 'пара не заполнена
MsgBox "Все обязательные поля должны быть заполнены!", 48, "Сообщение": Exit Sub
Exit For
End If
Можно подкорректировать.

Private Sub CommandButton1_Click()
Me.Hide
UserForm2.Show
End Sub