Private Sub popLoeschen_Click()
  Text1.SelText = ""
End Sub

Private Sub popEinfuegen_Click()
  Text1.SelText = Clipboard.GetText()
End Sub

Private Sub popAusschneiden_Click()
  Clipboard.Clear
  Clipboard.SetText Text1.SelText
  Text1.SelText = ""
End Sub