Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
 
        'Wurde Strg + V gedrückt?
        If e.Control = True AndAlso e.KeyCode = Keys.V Then
            'Übergangstextbox erstellen
            Dim Txt As New TextBox
            Txt.Text = ""
            Txt.Multiline = True
            'Zwischenablage einfügen
            Txt.Paste()
            Txt.SelectAll()
            'Wieder kopieren
            Txt.Copy()
            Txt.Dispose()
            'Wieder einfügen
            RichTextBox1.Paste()
            'Ereignis wurde bearbeitet, d.h. die
            'RTBox fügt das ganze nicht nochmal ein
            e.Handled = True
        End If
 
    End Sub