Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        ' wenn Eingabetaste gedrückt
        Dim key As Integer
        key = AscW(e.KeyChar)
        If key = 13 Then
            ' Piepston unterdrücken
            key = 0
            With RichTextBox1
                ' Cursor am Ende des Textes positionieren
                '.Select(Len(RichTextBox1.Text), 0)
                .SelectionStart = Len(RichTextBox1.Text)
 
 
                ' Inhalt von Text2 in Text1 übernehmen und Zeilenschaltung 
                ' anhängen
                .SelectedText = TextBox2.Text & vbCrLf
                .Focus()
 
 
 
            End With
 
            ' Inhalt von Text2 löschen
            TextBox2.Text = ""
        End If
    End Sub
 
    Private Sub RichTextBox1_GotFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles RichTextBox1.GotFocus
        TextBox2.Focus()
    End Sub

Nichts ist umsonst!