Как реализовать пароль в кнопке

Question

У меня есть кнопка блокировки, чтобы разблокировать форму с подчиненной формой. Чтобы включить кнопку, я хотел бы установить пароль с помощью msgbox. Но у меня есть проблема в моем коде.

Сначала я использую код, чтобы показать пароль msgbox с условным условием. Если пароль правильный, пользователь блокирует / разблокирует формы. Но у меня заканчивается утверждение в неправильном месте.

Private Sub bloquear_Click()
    With Me.bloquear
        Dim strPasswd
        strPasswd = InputBox("Enter Password", "Restricted Form")

        If strPasswd = "" Or strPasswd = Empty Then
            MsgBox "No Input Provided", vbInformation, "Required Data"
            Exit Sub
        End If

        If strPasswd = "Password" Then
            If .Caption = "Unlock" Then
                Me.AllowAdditions = True
                Me.AllowEdits = True
                Me.CONSULTA_PRODUCTOS.Form.AllowAdditions = True
                Me.CONSULTA_PRODUCTOS.Form.AllowEdits = True
               .Caption = "Lock"
            Else
                Me.AllowAdditions = False
                Me.AllowEdits = False
                Me.CONSULTA_PRODUCTOS.Form.AllowAdditions = False
                Me.CONSULTA_PRODUCTOS.Form.AllowEdits = False
                .Caption = "Unlock"
                Me.Refresh
            End If

    End With
        Else
            MsgBox "Sorry, you do not have access to this form", _
               vbOKOnly, "Important Information"
            Exit Sub
        End If

End Sub

В msgbox отображается

Ошибка компиляции, заканчивается без

Я нене знаю, что не так, потому что есть с.

Спасибо