Private Sub txt_Eingabe_KeyDown(KeyCode As Integer, Shift As Integer)
  If (KeyCode = vbKeyV And Shift = 2) Or (KeyCode = vbKeyInsert And Shift = 1) _
    Then
    ' Strg+V und Shift+Einfg unterbinden
    KeyCode = 0
    Clipboard.SetText ""
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de