Private Sub Form_Load() ''====== вход в программу по паролю
...........
ElseIf Password = "1" Then 'проверка правильного значения
Form1.Show
Exit Do
...........
Loop
End Sub
Private Sub CommandButton1_Click()'переходим на форму 2
Unload Form1 'выгружаем форму из памяти
Form2.Show
End Sub
Private Sub CommandButton4_Click() 'вот на этой кнопке и появляется InputBox с паролем
Form1.Show
Unload Form2 'выгружаем форму из памяти
End Sub