Поправить/исправить код ввода пароля - VB

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

Здравствуйте ребята! помогите новичку, имеется код:

                    Листинг программы
                
Private Sub cmdOK_Click()
If txtPassword = "1" Then If txtUserName = "D" Then MsgBox "Пароль введен верно!", vbInformation, "Вход": Command1.Enabled = True Else
MsgBox "Ошибка ввода логина или пароля!", vbCritical, "Ошибка ввода пароля!"
End Sub

правда после проверки правильности ввода имени и пароля выводить сообщение MsgBox "Пароль введен верно!, но проблема в том что за следом и выводит сообщеня MsgBox "Ошибка ввода логина или пароля!" а по условиям хотелось что бы невыводилось сообщение ошибки после правильности ввода имени и пароля! что я не правильно дописал? Заранее спасибо, Дмитрий!

Решение задачи: «Поправить/исправить код ввода пароля»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmdOK_Click()
    If txtPassword = "1" And txtUserName = "D" Then
        MsgBox "Пароль введен верно!", vbInformation, "Вход": Command1.Enabled = True
    Else
        MsgBox "Ошибка ввода логина или пароля!", vbCritical, "Ошибка ввода пароля!"
    End If
End Sub