クリップボードから文字列を取得する

Sub get_clipboard()
    Dim obj As Object
    Dim txt As String

    Set obj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    obj.GetFromClipboard
    txt = obj.gettext
    MsgBox txt
    
    Set obj = Nothing
End Sub

不要なものをなるべく省いたサンプルソース

参照設定から「Microsoft Forms 2.0 Object Library」にチェックすればもっと簡単に利用できるようなのですが、私の環境ではできませんでした。