lire le presse papier

Bonjour,
je voudrez mettre dans une variable , le contenu texte du presse papier !
j'arrive bien a coller , mais pas à copier!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Set what you want to put in the clipboard '
strMessage = "ok"
' Declare an object for the word application '
Set objWord = CreateObject("Word.Application")
 
' Using the object '
With objWord
   .Visible = False             ' Don't show word '
   .Documents.Add               ' Create a document '
   .Selection.TypeText strMessage   ' Put text into it '
   .Selection.WholeStory        ' Select everything in the doc '
   .Selection.Copy              ' Copy contents to clipboard '
   .Quit False                  ' Close Word, don't save ' 
End With

merci de votre aide.