Validar fecha en un text box

Hola Experto
Primeramente mil disculpas por la pregunta, ya vi mi pregunta en la página y no se puede
leer, espero que esta si se pueda leer correctamente, me pareció raro, que no me
contestaran, pero mi pregunta no estaba clara
lo que pasa es que en un formulario para capturar articulos frmCapturarArticulos
primero agregue un page frame PagArticulos y  sobre una de estas paginas que a la cual llamo  Datos  tengo los campos de mi tabla
agregue un textbox  txtFechaCompra para capturar la fecha de la compra
pero no puedo validar, pues me  marca error en el evento valid
en el inputMask = 99/99/9999
en el evento lostfocus tengo
this.value = dtoc(ctod(this.value)) 
En el evento valid tengo:
If empty(ctod(thisform.pagArticulos.Datos.txtFechacompra.Value))
Messagebox("Error",16,"Atencion")
Return .f.
Else
Return .t.
Endif
Nota. Si este textbox lo quito del frame page y si funciona es si me valida
espero que este si se pueda leer correctamente
y nuevamente un disculpa,
Mi correo es [url|mailto:[email protected]][email protected][/url]
                    [url|mailto:[email protected]][email protected][/url]
                   [url|mailto:[email protected]][email protected][/url]