Vamos a ver Claudia:
Yo creo comprender que en el evento LostFocus de un determinado TextBox, verificas el contenido y le vuelves a poner el foco ??
La verdad es que no comprendo muy bien a dónde quieres llegar con algo así, pero si por necesidades del guión resulta necesario y no pones un 'semáforo', nunca es capaz de salir de dicho TextBox.
Código:
'Supongo que tienes algo parecido a esto.
private sub MiText_LostFocus()
'Código que verifica el contenido
....
....
'Hacemos que retome el foco
MiText.SetFocus
end sub
yo te proponía lo siguiente
Código:
dim Flag as boolean
private form_load()
'Ponemos el semáforo en falso
flag=false
'más código
....
....
end sub
private sub MiText_LostFocus()
'Código que verifica el contenido
....
....
'Hacemos que retome el foco si el semáforo
'lo permite
if flag=false then MiText.SetFocus
end sub
private sub commandCANCEL_Click()
flag=true
'Más código
....
....
end sub
No sé si ahora lo tendrás más claro
Preguntas Sobre LostFocus 
Mode Lineal
