ELIMINAR CARACTERES

disculpa tengo un cuadro de texto como hago para ir borrando los caracteres 1 por 1 de derecha a izquierda, ejemplo el contenido del cuadro de texto es 12345, y al momento de darle click en un boton QUE sea el contenido 1234 y luego 123 sucesivamente
mucha gracias Victor

gracias victor por la ayuda,la codificacion que me agregaste y ala ves le encontre otra forma de su funion, aqui te la escribo por si alguien le interesa. gracias por toda la ayuda eres el mejor,
store 0 to longitud
texto=alltrim(thisform.text1.value)
longitud=len(texto)
nuevo=right(texto, longitud-1)
thisform.text1.value=nuevo
thisform.refresh
ATTe. Jonathan zepeda