我的输入框有什么问题

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