EffectTextOnPath.DistanceFromPath

Property DistanceFromPath As Double

The DistanceFromPath property returns or sets the vertical distance (offset) between the text and its path. The distance is specified in document units of measurements.

The following code example creates text fitted to a circle and specifies a distance of 0.5" between the text and the circle:

Sub Test() 
 Dim sText As Shape, sEllipse As Shape 
 Set sText = ActiveLayer.CreateArtisticText(0, 0, "Text On Path") 
 Set sEllipse = ActiveLayer.CreateEllipse2(4, 5, 2) 
 sText.Text.FitToPath sEllipse 
 sText.Effects(1).TextOnPath.DistanceFromPath = 0.5 
End Sub