With RichTextBox3
  ' Ziel löschen
  .Text = ""
  .SelAlignment = rtfCenter
 
  ' Inhalt der 1. RichTextBox einfügen
  .SelStart = Len(.Text)
  .SelRTF = RichTextBox1.TextRTF
  .SelStart = Len(.Text)
  .SelText = vbCrLf & vbCrLf
 
  ' Inhalt der 2. RichTextBox einfügen
  .SelStart = Len(.Text)
  .SelRTF = RichTextBox2(0).TextRTF
  .SelStart = Len(.Text)
  .SelText = vbCrLf 
 
  ' Inhalt der 3. RichTextBox einfügen
  .SelStart = Len(.Text)
  .SelRTF = RichTextBox2(1).TextRTF
  .SelStart = Len(.Text)
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de