Examples:
The following VBA example creates the letter "O" and converts it to a curve. It breaks the two subpaths into separate objects. The inner path is then moved upwards by 0.2", and the two paths are combined into a single curve shape.
Sub Test()
Dim s As Shape, sr As ShapeRange
Set s = ActiveLayer.CreateArtisticText(0, 0, "O")
With s.Text.FontProperties
.Name = "Arial Black"
.Size = 48
End With
s.ConvertToCurves
s.BreakApart
Set sr = ActiveSelectionRange
sr(1).Move 0, 0.2
sr.Combine
End Sub