Как передать аргументы из текста в макрос в VBA

Question

При назначении фигуры макросу я знаю, что вы можете передать фигуру в качестве аргумента, например:

Sub DoSomething(CShp as Shape)
    'code here using CShp as shape obj
End Sub

В PowerPoint вы также можете выделить текст и назначить ему макрос при нажатии. Можно ли передать текст, который был выбран в качестве аргумента? Я пробовал следующие идеи безрезультатно:

Sub GetText(ShpText as Textframe)
'Nothing passes
End Sub

Sub GetText(ShpText as TextRange)
'Nothing passes
End Sub

Sub GetText(Shp as Shape)
Dim TxtRng as TextRange
Set TxtRng = Shp.TextFrame.TextRange
'Passes the whole text but not the clicked text only
End Sub

Большое спасибо