Что не так с моим ящиком ввода

Question

Sub weewe() 

Dim jjj As String 

Do 
    jjj = InputBox("Type in the correct password", "password") 
Loop Until jjj = "Master" Or vbCancel 

If jjj = "Master" Then 

    sss = MsgBox("thats the correct password", vbOKOnly, "Password") 

ElseIf jjj = vbCancel Then 

    Exit Sub 

End If 

End Sub 

код работает, но почему, когда я нажимаю отменить, я получаю сообщение об ошибке 13? И как мне это исправить?

Answer 1

Sub weewe() 

    Dim jjj As String 

    Do 
     jjj = InputBox("Type in the correct password", "password") 
    Loop Until jjj = "Master" Or jjj = "" 

    If jjj = "Master" Then 
     MsgBox "thats the correct password", vbOKOnly, "Password" 
    ElseIf jjj = "" Then 
     Exit Sub 
    End If 

End Sub