Повторное появление окна InputBox при возвращении к форме - VB

Формулировка задачи:

Ребята Здравствуйте! подскажите как избавится от повторного появление окна InputBox (который служит для ввода пароля), при возвращении к формы: пример приложил

Решение задачи: «Повторное появление окна InputBox при возвращении к форме»

textual
                            Листинг программы 
                        

                            Static Password As String
 
If App.PrevInstance = True Then
    MsgBox "Программа уже загружена", 16, "Ошибка пользователя!"
End
End If
Do
If Password = "" Then
    Password = InputBox("Доступ к программе осуществляется по паролю:", "Сообщение")
End If
If StrPtr(Password) = 0 Then 'если нажата кнопка отмена
       MsgBox "Нажата кнопка Отмена. Процедура прервана", 48, "Сообщение"
            Unload Form2
Exit Do
    ElseIf Password = "1" Then 'проверка правильного значения
        Form2.Show
Exit Do
    ElseIf Password = "911" Then
        MsgBox ", ПОЗДРАВЛЯЕМ!", 16, "Важная информация"
            Me.Hide
                Unload Me
 
Exit Do
    [B]ElseIf Password <> "" Then 'проверка поля на наличие значения
    MsgBox "Пароль" & " - " & Password & " - " & ", НЕ ВЕРНЫЙ, введите правильный пароль или" & vbCrLf & _
        "нажмите кнопку ОТМЕНА и покиньте программу!", 64, "Сообщение"
            Unload Form2[/B]
Exit Do
    Else
        MsgBox "Поле пароля имеет значение ПУСТО, повторите ввод пароля!или" & vbCrLf & _
        "нажмите кнопку ОТМЕНА и покиньте программу!", 64, "Сообщение"
    End If
        Loop
                        