Access - error de compilación next sin for

Hola. Tengo lel siguiente evento:

Private Sub Desbloquear_Click()
If Desbloquear.Value = True Then
Dim VarObjeto As Object
For Each VarObjeto In Form_ALUMNOS.Controls
If Left(VarObjeto.Name, "") = "" Then
VarObjeto.Locked = True
If Left(VarObjeto.Name, "") = "" Then
VarObjeto.Locked = False
End If
End If
End Sub
.....................................
...y me da error de compilación next sin for.

Pretendo tener todos los campos bloqueados y desbloquearlos por un botón.
¿Qué es lo que me falta o de donde procede el error?
GRACIAS.

If Desbloquear.Value = True Then

Dim VarObjeto As Object

For Each VarObjeto In Form_ALUMNOS.Controls

If Left(VarObjeto.Name, "") = "" Then

VarObjeto.Locked = True

Else If Left(VarObjeto.Name, "") = "" Then

VarObjeto.Locked = False
End If
NEXT

End If

Te recomiendo que siempre indexes

Un saludo
Victoria

Muchas GRACIAS y.....
¡¡¡BUENAS FIESTAS !!! y a por "El NIÑO" (Sorteo)

...aun que no me funciona...
En primer lugar i dado a mostrar e error..
He situado el If Left (Varo.....
debajo de Else
...y me sigue dando el mismo error de compilación
GRACIAS

If Desbloquear.Value = True Then

Dim VarObjeto As Object

For Each VarObjeto In Form_ALUMNOS.Controls

If Left(VarObjeto.Name, "") = "" Then

VarObjeto.Locked = True

Else If Left(VarObjeto.Name, "") = "" Then

VarObjeto.Locked = False
End If
NEXT

Perdona, se "colo" un end if al final; quítalo, sin más

Victoria

Hola Victoria.
Tal y como lo detallas , me produce un Error de compilación: se esperaba fin en la instruccón - Else If Left(VarObjeto.Name, "") = "" Then- .

Si situo:
...
Else
If Left(VarObjeto.Name, "") = "" Then
...
Sigue dando el Error de compilación: Next sin For

.............................................................................
Gracias

Te envio un email
Victoria