codice:
Dim txt As string

txt = "testo aggiunto"

Text1.Text = Text1.Text & vbCrLf & txt