Zwischenablage in Makro verwenden

Sub auf diesen Text zugreifen, im Prinzip so:
Zelle A1 mit Maus selektieren, dort steht "TEXT", dann STRG-C drücken.
Meine 

Sub soll dann sowas können:

Sub zeigeTxt()
Dim txt as String
txt = Clipboard.value '(KLAR, SO GEHT ES NICHT, ABER WIE?)
msgbox(txt)
End Sub


Dann sollte in der msgbox "TEXT" erscheinen... einfach, oder?