Sub Command1_Click() ' Kopieren
    Call Kopieren
End Sub

Private Sub Einfügen()
    On Error Resume Next
 
If Clipboard.GetFormat(vbCFText) Then
	temp = Clipboard.GetText(vbCFText) ' Zwischenablagentext abrufen.
 	RichTextBox1.SelText = temp
 ElseIf Clipboard.GetFormat(vbCFBitmap) Then
 	temp2 = Clipboard.GetData(vbCFBitmap)
	RichTextBox1.SelText = temp2
 
 Else
	MsgBox "Es befindet sich kein Eintrag in der Zwischenablage."
End If
 
End Sub

Private Sub Ausschneiden()
	Clipboard.SetText RichTextBox1.SelText
	RichTextBox1.SelText = ""
End Sub

Private Sub Kopieren()
	Clipboard.SetText RichTextBox1.SelText
End Sub