Sub Test() Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, _ "This is an example for length") Set t = s.Text MsgBox "The length of the characters in the paragraph text is " & _ t.Story.LengthEnd Sub