Dim ans As String
 Dim d1, d2
  If TextBox2.Text = "" Then
   MsgBox "сообщение!", 48, "Информация"
Else
 ans = InputBox("сообщение:", "информация", 0)
  d1 = TextBox2
   d2 = ans - TextBox2.Text
    MsgBox "сообщение: " & d2 , 64, "информация"

[color=red]If StrPtr(ans) <> 0 Then 'когда нажата кнопка отмена 
Exit Sub[/color]

End If
End If

If Password = "1" Then
    Form2.Show
ElseIf Password <> 0 Then
    MsgBox "пароль не верный", vbInformation, "сообщение" ' сообщение_1
        Unload Form2 'выгрузка формы
If StrPtr(Password) = 0 Then MsgBox "Нажата кнопка Отмена. Процедура прервана", vbInformation, "сообщение" 'сообщение_2
Exit Sub
If Password = "911" Then
    MsgBox "сообщение важно!",  vbCritical, "сообщение"
            Me.Hide
                Unload Me

End
End If
End If
End If
End Sub

....
ElseIf Password <> 0 Then 'здесь сравниваем верен ли пароль
    MsgBox "пароль не верный", vbInformation, "сообщение" ' сообщение_1

If StrPtr(Password) = 0 Then MsgBox ' а здесь нажата кнопка отмена независимо от правильности ввода
MsgBox "Нажата кнопка Отмена. Процедура прервана", vbInformation, "сообщение" 'сообщение_2
....

'ElseIf Password <> 0 Then '-убрал

    Else ' вписал

...
Dim Password
Password = InputBox("ввод в поле пароль:", "Сообщение, "*")
If StrPtr(Password) = 0 Then
    MsgBox "Нажата кнопка Отмена. Процедура прервана", vbInformation, "сообщение"
        Unload Form2 
ElseIf Password = "1" Then
    Form2.Show
Else
    MsgBox "пароль не верный", vbInformation, "сообщение"
        Unload Form2 
End If
    If Password = "911" Then
        MsgBox "сообщение ВАЖНО!, "СООБЩЕНИЕ", vbCritical, 48
Exit Sub
End If
...

Dim Password
Password = InputBox("ввод в поле пароль:", "Сообщение, "*")
If StrPtr(Password) = 0 Then
    MsgBox "Нажата кнопка Отмена. Процедура прервана", vbInformation, "сообщение"
        Unload Form2 
ElseIf Password = "1" Then
    Form2.Show
Else
    Unload Form2
        MsgBox "пароль не верный", vbInformation, "сообщение"
           Form2.Show
End If
    If Password = "911" Then
        MsgBox "сообщение ВАЖНО!, "СООБЩЕНИЕ", vbCritical, 48
Exit Sub
End If

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
    ElseIf Password <> "" Then 'проверка поля на наличие значения
    MsgBox "Пароль" & " - " & Password & " - " & ", НЕ ВЕРНЫЙ, введите правильный пароль или" & vbCrLf & _
        "нажмите кнопку ОТМЕНА и покиньте программу!", 64, "Сообщение"
            Unload Form2
Exit Do
    Else
        MsgBox "Поле пароля имеет значение ПУСТО, повторите ввод пароля!или" & vbCrLf & _
        "нажмите кнопку ОТМЕНА и покиньте программу!", 64, "Сообщение"
    End If
        Loop