Sub Test() Dim s As Shape Dim d As Document Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, _ "This is a test.") Set t = s.Text MsgBox t.Story.Characters.CountEnd Sub