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