The Story property returns all text from all text frames.
Examples:
The following VBA example creates artistic text and displays all of the text.
Sub Test()
Dim d As Document
Dim s As Shape
Dim t As Text
Set d = CreateDocument
Set s = d.ActiveLayer.CreateArtisticText(3, 3, "This is a test.")
Set t = s.Text
MsgBox "The entire text is:" & vbCr & t.Story
End Sub