Segundo error no se controla

[dornop]

Buenos días.

Tengo problemas con el control de errores. Resulta que, si la aplicación da un error, éste lo controla perfectamente, pero al hacer el goto para que me redirija a la línea de código por la que quiero continuar (goto siguiente), si se vuelve a producir un segundo error, éste no es controlado y bloquea el proceso. ¿Cuál es la solución?

Un ejemplo muy simple (en el click de un botón):

Private Sub Command1_Click()
Dim i As Integer
On Error GoTo solu
For i = 0 To 10
i = 5 / 0
siguiente:
Next
Exit Sub
solu:
MsgBox "CONTROLADO"
GoTo siguiente
End Sub


Un saludo.

[dornop]

Dobleposteo. Vaya, antes pongo el mensaje, antes encuentro la solución:

Private Sub Command1_Click()
Dim i As Integer

On Error GoTo solu

For i = 0 To 10
i = 5 / 0
siguiente:
On Error GoTo -1
On Error GoTo solu
Next
Exit Sub
solu:
MsgBox "CONTROLADO"
GoTo siguiente
End Sub

Sorry.