Zwischenablage leeren

Wie kann man in VBA die Zwischenablage leeren ?
 
Private Declare Function OpenClipboard Lib "user32" _
   (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () _
   As Long
Private Declare Function CloseClipboard Lib "user32" () _
   As Long
Sub Zwischenablage_leeren()
    If OpenClipboard(0&) <> 0 Then
        Call EmptyClipboard
        Call CloseClipboard
    End If
End Sub