Private Sub cmdBack_Click()
Dim temp As String
Dim leng As Integer
If txt1.Text = " " Then
MsgBox "Text box has no value!", vbInformation
Else
temp = Str(txt1.Text)
leng = Len(temp)
txt1.Text = ""
For i = 1 To leng - 1
txt1.Text = Mid(temp, 1, i)
Next i
End If
End Sub
_________________
add this code 2 ur number example
cmdBack.Enabled = True <<add this
to able the backspace
any suggestion my email add in facebook johnpaulzzzz@yahoo.com
777 views
Usually answered in minutes!
×