Adding Text to a Text Box

[thiru_rajamani]

This is a same one of above

Private Sub Command1_Click()
Text1.Text = Text1.Text & "xx"
End Sub

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