What you wish to do is very easy.

Code:
Private Sub Command1_Click()
Text1.text = Text1.text & " your text"
End Sub