Class cClipBoard
    Private objIE
    
    Public Property Get Data()
        Data = objIE.Document.ParentWindow.ClipboardData.GetData("Text")
    End Property
    
    Public Property Let Data ( Value )
        objIE.Document.ParentWindow.ClipboardData.SetData "Text" , Value
    End Property
    
    Public Sub Clear()
        objIE.Document.ParentWindow.ClipboardData.ClearData()
    End Sub
    
    Private Sub Class_Initialize
        Set objIE = CreateObject("InternetExplorer.Application") 
        objIE.Navigate ("about:blank") 
    End Sub
    
    Private Sub Class_Terminate
        objIE.Quit
        Set objIE = Nothing
    End Sub
End Class

Dim ClipBoard 
Set Clipboard = New cClipBoard

ClipBoard.Clear 'Effacement du contenu du presse papier
ClipBoard.Data = "Message du presse papier" 'On  colle un message dans le presse papier
MsgBox ClipBoard.Data 'On récupère ce qu'il y a dans le presse papier et on l'affiche