FoxPro/Visual FoxPro - substr

hola que tal, alguien me puede decir como substraer el primero numero de un textbox, hago la aclaracion que no es de tipo caracter, sino numerico, su lo hago con valores de caracter si me funciona, pero el resultado del textbox es numerico y nose cual sea el procedimiento, alguien me puede ayudar?

SUBSTR(STR(txtBox,6),1,3)

Suerte

disculpa tocayo, pero tengo una duda:
tengo el siguiente codigo:

.total2=(total1/365)
dias=SUBSTR(STR(total2,6),1,1)

asi quedaria?

supongamos que solo quiero obterner el primero digito de TOTAL2

si esta bien como lo puse?
dias=SUBSTR(STR(total2,6),1,1)

caballero, lo intente, pero has de cuenta que la cantidad que trae total2=6.815
y con la formula que me distes me extrae el numero 7, quizas me lo esta redondeando?

o porque me esta dado como resultado de la sub el numero 7?

valor = SUBSTR(ALLTRIM(STR(thisform.text1.value)),1,1)

prueba con TRANSF(), te va a ir mejor.

Santiago