Private Handle_ As Boolean
 
    Private Sub RichTextBox1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
        Dim array1 As Array
        Dim array2 As Array
        Dim cb As String
 
        'e.Handled = True <<<<<< Hier ist das übel
        Me.Handle_ = False
        If Clipboard.GetDataObject.GetDataPresent(DataFormats.Html, False) Then _
          ' Format der  Zwischenablage abfragen
            cb = Clipboard.GetDataObject().GetData(DataFormats.Html, True)
        End If
 
        If e.KeyCode = Keys.V AndAlso (e.Control) Then
            If cb Is Nothing Then
                Me.Handle_ = True
            ElseIf cb <> "" Then
 
                array1 = Split(cb, "<!--StartFragment-->")
                array2 = Split(array1(1), "<!--EndFragment-->")
                RichTextBox1.Text = array2(0)
 
                Me.Handle_ = False
 
            Else
                Me.Handle_ = True
            End If
        End If
 
    End Sub