Private Sub menuCopy_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
    TextBox1.Copy()
End Sub
Private Sub menuCut_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
    TextBox1.Cut()
End Sub
Private Sub menuPaste_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
    TextBox1.Paste()
End Sub

Private Sub menuPaste_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
Dim IDateObject clipData = Clipboard.GetDataObject()
Dim clipboard As String
 
' Prüfen, ob Text in der Zwischenablage liegt
If(clipData.GetDataPresent(DataFormats.Text)) Then
    clipboard = clipData.GetData(DataFormats.Text).ToString()
    ' Prüfung durchführen. Dies geschieht hier in der Routine CheckNum
    If (CheckNum(clipboard) Then
        TextBox1.Paste()
    Else
        MessageBox.Show("...", "Fehler");
    End If
End If
End Sub

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!