Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "Some loose text") s.Text.FontPropertiesInRange(2, 1, cdrWordIndexing).RangeKerning = 100End Sub