VBScript simulazione backspace

[tep]

Vorrei simulare il backspace attraverso un pulsante che contenga un sub correlato(in vbscript).

per l'inserimento del numero 1 (e gli altri numeri) nella txtcalcolatrice ho fatto cosi':

Sub numero1()
val=document.MioForm.1.value
val2=document.MioForm.txtcalcolatrice.value
document.MioForm.txtcalcolatrice.value=val2&val
end sub

Per cancellare tutto quello che esiste nella txtcalcolatrice ho fatto:

Sub cancella()
val=""
document.MioForm.txtcalcolatrice.value=val
end sub

quale codice devo usare per cancellare solo l'ultimo numero contenuto nella txtcalcolatrice?

esempio in txtcalcolatrice c'è 1234 quando premo il pulsante backspace deve rimanere 123 nella txtcalcolatrice.

grazie