RichTextBox1.AutoVerbMenu = False

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, _
  Shift As Integer)
 
  <font color=green>' autom. Einfügen des Zwischenablage-Inhaltes
  ' verhindern (Strg+V / Umsch+Einfg)</font>
  If (KeyCode = vbKeyV And Shift = 2) Or _
    (KeyCode = vbKeyInsert And Shift = 1) Then
 
    KeyCode = 0
 
    <font color=green>' Befindet sich normaler Text in der 
    ' Zwischenablage?</font>
    If Clipboard.GetFormat(vbCFText) Then
      <font color=green>' ...dann ganz normal einfügen</font>
      RichTextBox1.SelText = Clipboard.GetText(vbCFText)
    End If
  End If
End Sub