como poner numero de intentos de acceso mediante clave

[apofis]

lo intentando de varias formas y no lo consigo o solo a medias,se trata de limitar a 3 los intentos de introduccion de clave de acceso,aqui les dejo la macro del control de acceso por si pueden echarme una mano:

Sub auto_Open()
Load ProgressDlg
ProgressDlg.Show
recuperar = "123"
x:
clave = InputBox("* este libro esta protegido mediante clave." & Chr(10) & " sin ella no puede acceder a sus funciones." & Chr(10) & "* (NO PIERDA SU CLAVE) " & Chr(10) & " " & Chr(10) & "introduce aqui tu clave de acceso: ", "clave de seguridad del libro", "********", 3000, 3000)
If clave = "123" Then

MsgBox "clave valida,ahora tiene acceso", 64, "..........seguridad.........."
Sheets("inicio").Visible = True
Sheets("inicio").Activate
Sheets("inicio").Range("A1").Select
Else

MsgBox "clave no valida", 16, "..........seguridad.........."
recupera = InputBox("¿cual es tu animal preferido?", "recuperar clave", "***", "300,300")
If recupera = "perro" Then

MsgBox ("su clave es:") & recuperar
Else
End If

GoTo x
End If
End Sub

p.d(lo e intentado mediante una variable tipo intentos=3,intentos=intentos-1,if intentos=0 then.......) sin resultados