Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Dim cb As Object = Nothing
        Me.Handle_ = False
        If Clipboard.GetDataObject.GetDataPresent(DataFormats.Text, False) Then _
          ' Format der  Zwischenablage abfragen
            cb = Clipboard.GetDataObject()
        End If
        If e.KeyCode = Keys.V AndAlso (e.Control) Then
            If cb Is Nothing Then
                Me.Handle_ = True
            ElseIf cb = DEINE|BEDINGUNG(FORMAT) Then 
                ' Hier muss deine Bedingung hinzugefuegt werden
                ' wenn diese erfuellt ist, kannst du die var. auf false setzen
                Me.Handle_ = False
                ' somit ist dann das einfuegen in diesem fall erlaubt
            Else
                Me.Handle_ = True
            End If
        End If
    End Sub