Wenn wenigen Zeilen erzwingen Sie in einer Textbox einen Zeilenumbruch.
     Wichtig ist, dass die Eigenschaft "Multilinie" auf "True" setzen,
     dies ist eine schreibgeschützte Eigenschaft und kann daher
     nicht zur Laufzeit gesetzt werden:

   'Zeilenumbruch generieren
   CR$ = Chr$(13) & Chr$(10)
   'Zeilenumbruch schreiben
   Text1.Text = Text1.Text & CR$
   'Fokus setzen
   Text1.SetFocus
   'zum Ende springen
   SendKeys "^{end}"