FoxPro/Visual FoxPro - Volver al TextBox de inicio

Hola buenas tardes.. tengan todos ustedes amigos... deseo me puedan ayudar con lo siguiente.. mas bien se trata de un formulario de punto de venta... y es como sigue:

tengo un FORM en el cual tengo un textbox llamdo nCodigo el cual es caracter de 25 de long. y es donde captura el codigo la lectora... en el Evento LostFocus tengo el siguiente codigo:

SELECT articulos
SET ORDER TO CODEBAR && CODEBAR
GO top
locate FOR ALLTRIM(CodeBar)=ALLTRIM(nCodigo)
IF ! EOF()
nCodigo=ALLTRIM(codebar)
carticulo=ALLTRIM(articulo)
nCant=1
nPrecio=precioventa
SELECT paso
SET ORDER TO ARTICULO && ARTICULO
APPEND BLANK
replace cant WITH ncant
replace codigo WITH ncodigo
replace articulo WITH carticulo
replace precio WITH nprecio
ntotal=ntotal+nprecio
Thisform.Grid1.Refresh
Thisform.Vacia() && Vacia las variables
ELSE
MESSAGEBOX('El Registro no Existe')
RETURN 0
ENDIF
Thisform.Refresh

Deseo que al momento de recoger el codigo arriba nCodigo, tome nuevamente el foco para introducir otro codigo de barras... y asi sucesivamente...

o si alguien tiene una me podria decir donde puedo poner el codigo anterior... y que debo hacer para retornarle a NCODIGO el SetFocus...
Muchas Gracias Amigos...

Proba el siguiente código

IF !EMPTY(This.Value)
This.Value=""
RETURN This.Value
ENDIF

este codigo donde lo voy a insertar..??

al inicio del evento lostfocus del textbox...??

o en que evento del textbox...??

En el Valid