VDA de vocabulario en ingl-esp meter cuadro de confirmación

Tengo un excel con una macro para aprender vocabulario en inglés, la saque de youtube y yo le he metido un línea más para que lea en inglés las palabras. Bien la excel cuando aciertas 5 veces la palabra borra la línea, lo que yo quiero meter es que cuando aciertas las 5 te haga escribir la palabra si es correcta que se borre y si no es correcta tengas que volver a hacer las 5 veces. Creo que me explico, ¿me podéis ayudar?

Dim l
Dim s
Dim r
Dim p(1 To 4)
Dim ing
Dim esp
Dim np

Private Sub FINAL_Click()
Call BORRAR
End Sub

Private Sub INICIO_Click()

Call BORRAR
l = 1
Call IDIOMA
Call CONTAR
If np = 0 Then Exit Sub
Call ALEATORIO
Call COLOCAR
Call LEER
End Sub

Sub CONTAR()
For i = 1 To 10000
If Sheets(2).Cells(i, 1) = "" Then Exit For
Next i
np = i - 1
Range("F1") = np
End Sub
Sub ALEATORIO()
s = 4
If np < 4 Then s = np

For i = 1 To s
10 p(i) = Int(np * Rnd + 1)
For j = 1 To i - 1
If p(i) = p(j) Then GoTo 10
Next j
Next i
End Sub
Sub LEER()
Application.Speech.Speak Range("F8")
End Sub
Sub IDIOMA()

If INGLES.Value = True Then ing = 1: esp = 2 Else ing = 2: esp = 1

End Sub
Sub COLOCAR()
PALABRA1.Caption = Sheets(2).Cells(p(1), ing)
If np > 1 Then PALABRA2.Caption = Sheets(2).Cells(p(2), ing) Else PALABRA2.Caption = ""
If np > 2 Then PALABRA3.Caption = Sheets(2).Cells(p(3), ing) Else PALABRA3.Caption = ""
If np > 3 Then PALABRA4.Caption = Sheets(2).Cells(p(4), ing) Else PALABRA4.Caption = ""
r = Int((s * Rnd) + 1)

Range("F8") = Sheets(2).Cells(p(r), esp)

End Sub

Private Sub PALABRA1_Click()
If l = 0 Or np = 0 Then Exit Sub
If r = 1 Then Call COMPROBARBIEN Else Call COMPROBARMAL

End Sub

Private Sub PALABRA2_Click()
If l = 0 Or np = 0 Then Exit Sub
If r = 2 Then Call COMPROBARBIEN Else Call COMPROBARMAL
End Sub

Private Sub PALABRA3_Click()
If l = 0 Or np = 0 Then Exit Sub
If r = 3 Then Call COMPROBARBIEN Else Call COMPROBARMAL
End Sub

Private Sub PALABRA4_Click()
If l = 0 Or np = 0 Then Exit Sub
If r = 4 Then Call COMPROBARBIEN Else Call COMPROBARMAL
End Sub
Sub COMPROBARBIEN()
Range("I6") = "BIEN"
Range("F10") = Sheets(2).Cells(p(r), ing)
Sheets(2).Cells(p(r), 3) = Sheets(2).Cells(p(r), 3) + 1
If Sheets(2).Cells(p(r), 3) = 5 Then Sheets(2).Rows(p(r)).Delete
Call RETARDO

Call INICIO_Click
End Sub

Sub COMPROBARMAL()
Range("I12") = "MAL"
Range("F10") = Sheets(2).Cells(p(r), ing)
Call RETARDO
Call INICIO_Click
End Sub
Sub BORRAR()

Range("F1") = ""
Range("I6") = ""
Range("I12") = ""
Range("F10") = ""
PALABRA1.Caption = ""
PALABRA2.Caption = ""
PALABRA3.Caption = ""
PALABRA4.Caption = ""
l = 0
End Sub
Sub RETARDO()
t = Range("H1")

For i = 1 To t * 30000000

Next i
End Sub

Esta es la macro