get selection text help

can someone help me with this? i want the macro to get the text at the selected shape. this is obviously not working. thanks.

Sub getselectiontext()
ActiveDocument.Pages(pagenum).ActiveLayer.Activate
ActivePage.SelectShapesAtPoint(2.3, 9.88, True).CreateSelection
Set shRange = ActiveSelectionRange
MsgBox shRange.Shapes.Count

For Each stext In shRange.FindShapes(Type:=cdrTextShape)
Set tr = stext.Text.Story.Duplicate
MsgBox tr

Next stext


' If s.Type = cdrTextShape Then s.Text.Story = "New Text": Stop

End Sub