Sub Test() Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 7, 7, "This is a test.") Set t = s.Text t.BeginEdit If t.IsEditing Then MsgBox "The text shape is in edit mode." End IfEnd Sub