text1.text = text1.text & vbnewline & Hinzufügetext
text1.selstart = len(text1.text)

Ich glaub so war das, ist schnell aus dem Kopf geschrieben ...