Excel - Contraseñas en Macros de Excel

Buanas Noches quisiera saber como hago con este codigo.
Este codigo q se ve.
Sheets("Seguridad").Select
n = 5
fila = A + CStr(n)
Range("a5").Select
Do While ActiveCell.FormulaR1C1 <> ""
If Text1 = ActiveCell.FormulaR1C1 Then
fila = "b" + CStr(n)
Range("b5").Select
If Text2 = ActiveCell.FormulaR1C1 Then
Unload UserForm1
UserForm7.Show


End If
End If

n = n + 1
fila = "a" + CStr(n)
Range("a5").Select
Loop
c = c + 1
ActiveCell.Offset(1, 0).Select
Text1 = ""
Text2 = ""
Text1.SetFocus
este me compara las celdas y me manda a otro formulario. ok
Como hago para q cuando el usuario se equivoque n se quede pegado el sistema..... quiero q me aparezca algo como intente de nuevo o algo asi GRACIAS Caracas Qta Crespo

Que pena que antes de iniciar nuevo tema, no hayas siquiera manifestado algun minimo mensaje a tu pregunta anterior...