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.StoryEnd Sub