Private Sub Clipboard1()
 OpenClipboard (Me.hwnd)
  ClipboardClear
   CloseClipboard
Clipboard.Clear
     Clipboard.SetText strAusgabe2, vbCFText
End Sub

Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Integer
Declare Function CloseClipboard Lib "user32" () As Long
 
Sub ClipboardClear()
Dim Ret As Integer
 
Ret = EmptyClipboard()
 
If Ret = 0 Then
 ' Error...
Else
 ' Alles klar !
End If
End Sub