Description:
If CDbl(dvFinFecha) < CDbl(Now()) then	
		msgbox "La fecha no puede ser mayor que hoy"		
		ofForm.Controls("FinFecha").Value = "" --------- Elimina el valor introducido 
                                                                 en el control, erróneamente por el usuario, seguidamente
								 provoca un bucle infinito y no sigue corriendo el código

		Exit Sub --------------------------------------- Debería salir del procedimiento IF...THEN, pero no 
                                                                 responde Exit Sub.
	
           ElseIf dvFinFecha <= svMimFechaLicenciaConductor then
		msgbox "La fecha no puede ser menor que fecha alta conductor"

		'ofForm.Controls("FinFecha").Value = "" --------Elimina el valor introducido en el control, erroneamente 
                                                                por el usuario, seguidamente
								provoca un bucle infinito y no sigue corriendo elcodigo.

		Exit Sub -------------------------------------- Debería salir del procedimiento IF...THEN, pero no 
                                                                responde el Exit Sub.
End if
Exit Sub
End Sub

Steps to Reproduce:
1.Crear un bucle If...then según detallo anteriormente.
2.
3.

Actual Results:
Para reproducir el problema ejecutar la instrucción o bucle IF...THEN que detallo anteriormente en el cuadro "Descripción"

Expected Results:
Se origina un bucle infinito.


Reproducible: Always


User Profile Reset: Yes


OpenGL enabled: Yes

Additional Info:
Exit Sub impera sobre cualquier acción, instrucción o comando, Exit Sub tenia que detener la ejecución del codigo.