Sub Test() Dim s As Shape Dim d As Document Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateArtisticText(3, 3, "This is a test") Set t = s.Text If t.IsArtisticText Then MsgBox "Artistic Text" End IfEnd Sub