[Resolvido]senha para excluir registro

Olá pessoal, como faço para solicitar uma senha ao tentar excluir um registro, tentei usando inputbox mas ele da que a senha está incorreta, usei o código abaixo:

Código:



On Error GoTo Err_btnExcluir_Click
Dim senha As String
Dim contrasenha As String
contrasenha = instsulmineiro


resp1 = MsgBox("Deseja realmente excluir esse registro?", vbCritical + vbYesNo, "Exclusão de registro")
If resp1 = vbYes Then
 senha = InputBox("Digite a senha", "Confirmar Exclusão")
 
    If senha = contrasenha Then
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        senha = Null
    Else
        MsgBox "Senha incorreta! Não foi possível excluír o registro!", vbOKOnly + vbCritical, "Impossível Excluir"
  End If
 
 End If

Exit_btnExcluir_Click:
    Exit Sub

Err_btnExcluir_Click:
    MsgBox Err.Description
    Resume Exit_btnExcluir_Click



Existe alguma outra forma?

ewertonms utilize dessa maneira

Dim strInput As String

strInput = InputBox("Entre com a senha para excluir permanentemente " & Me.nome & vbNewLine & vbNewLine, _
"ATENÇÃO")

If strInput = "" Or strInput = Empty Then
MsgBox "Não informou a senha - Cancelado...", vbCritical
Me.nome.SetFocus
Exit Sub
End If

If strInput = "APAGAR" Then


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox ("Registro excluído com Sucesso..."), vbInformation

Else

MsgBox ("Senha inválida..."), vbCritical

Exit Sub
End If

Obrigado mcsanches funcionou aqui obrigado.