Sub Test() Dim s As Shape Set s = ActiveLayer.CreateParagraphTextWide(0, 3, 3, 0, Chr(216) & _ Chr(231) & Chr(241) & Chr(233) & Chr(243), cdrGreek, cdrCharSetGreek, _ "Times New Roman", 24)End Sub