Excel - Contraseñas en MACROS

Buenas Tardes yo tengo este codigo , la cual me compara 2 celdas:
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
End Sub
OK si el usuario no coloca los mismo codigo q c encuentran en las celdas me DA ERROR.
Por eso acudo a Uds. para q me ayuden en este caso. ¿ Quisiera Saber como hago para q cuando el usuario inserte un codigo mal escrito aparezca algo como intente de nuevo a algo parecido.

con el siguiente codigo

on error goto ETIQUETA
ETIQUETA: msg 'Contraseña incorrecta'