[Vb6] Eliminare ultima lettera inserita nel TextBox

[MItaly]

Dim str As String
str = NomeTextBox.Text
NomeTextBox.Text = Left(str, Len(str)-1)