Salve ragazzi,
dovrei riuscire a cancellare l'ultimo carattere di un textbox..

il codice attuale è:

Private Sub Command1_Click()
lunghezza = Len(Text1.Text)
Text1.SelLength = Val(lunghezza - 1)
Text1.Text = Text1.SelText
End Sub

questo codice funziona soltanto se il contenuto della textbox è stabilito in precedenza.. se modifico il testo e premo il command1 x cancellare l'ultimo carattere mi cancella tutto!!!
qualcuno sa come sistemare?

grazie!