Ecco, adesso è chiaro.
Puoi usare la funzione Left() per mantenere tutti i caratteri meno l'ultimo.
Immaginando che Numero.Text sia il textbox con il risultato, puoi fare:

codice:
Numero.Text = Left$(Numero.Text, Len(Numero.Text) -1)
Inoltre, ovviamente, se formatti il numero dovrai ri-formattarlo.