Public Sub EmptyClipBoard()
Dim myClipboard As New DataObject
Dim l_sText As String
Dim l_sTest As String
l_sText = "Hallo, world"
myClipboard.SetText l_sText
myClipboard.PutInClipboard
myClipboard.GetFromClipboard
l_sTest = myClipboard.GetText
MsgBox l_sTest
myClipboard.Clear
Set myClipboard = Nothing
End Sub