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}"