FoxPro/Visual FoxPro - Fecha

Una consulta necesito saber que es lo que me falta para que me salga la concatenacion con fecha.
Me explico, tengo un Texbox de fecha (txt_fecvec) con las siguientes propiedades
ControlSource m.fecvec
DateMark /

y en el formulario he colocado
SET DATE DMY
SET CENTURY ON

store "" to m.fecvec

pero a la hora que quiero concatenar el AnoReg me aparece el mensaje de "El valor, tipo o número de argumentos no es válido para la función."

AnoReg= SUBSTR(thisform.pageframe1.page1.container1.txt_fecvec.Value,7,4)

drive_cta = "sjm\dbf"+allt(str(AnoReg,4))+"\cta\"

Por favor si saben que puede ser le agradeceria muchisimo

AnoReg= YEAR(ThisForm.PageFrame1.Page1.Container1.txt_fecvec.Value)

drive_cta = "sjm\dbf"+ALLTRIM(STR(AnoReg))+"\cta\"

Suerte

AnoReg= YEAR(ThisForm.PageFrame1.Page1.Container1.txt_fecvec.Value)

drive_cta = "sjm\dbf"+ALLTRIM(STR(AnoReg))+"\cta\"

Suerte

AnoReg= SUBSTR(thisform.pageframe1.page1.container1.txt_fecvec.Value,7,4)
El substr es para un campos character, por ese te da el error.