This is the way I found I could get the text:
ThisWorkbook.Sheets("MySheet").Shapes("MyShape").TextFrame.Characters.Text