[VB6] Cancellare ultimo carattere di una TextBox

[Arkantolo]

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!

[MItaly]

Text1.SelStart=Len(Text1.Text)-1
Text1.SelLength=1
Text1.SelText=""

[Arkantolo]

wAAAAAAAAAAAAAAAAAAA
velocissimo e funzionalissimo!
grazie mille! x me si può kiudere

[oregon]

Mi sembra che possa anche andare

Private Sub Command1_Click()
  Text1.Text = Iif(Len(Text1.Text)>0, Left$(Text1.Text, Len(Text1.Text)-1), Text1.Text)
End Sub

[MItaly]

Ma allora

Private Sub Command1_Click()
  If Not Text1.Text="" Then
     Text1.Text = Left$(Text1.Text, Len(Text1.Text)-1)
  End If
End Sub

così ci risparmiamo un po' di Variant (maledetti Variant, quanto li odio... ).
Il tuo codice comunque mi fa notare che nel mio non è previsto alcun controllo nel caso in cui la casella sia vuota... correggo subito.

Private Sub Command1_Click()
    If Not Text1.Text="" Then
        Text1.SelStart=Len(Text1.Text)-1
        Text1.SelLength=1
        Text1.SelText=""
    End If
End Sub