The PositionX property returns or specifies the horizontal position, or x-coordinate, of a subpath's starting point, treating the subpath as a separate object. This position is relative to the reference point specified by the Document.ReferencePoint property.
Examples:
The following VBA example aligns all subpaths horizontally so that their left sides are 2" from the left edge of the page.
Sub Test()
Dim sp As SubPath
ActiveDocument.ReferencePoint = cdrTopLeft
For Each sp In ActiveShape.Curve.Subpaths
sp.PositionX = 2
Next sp
End Sub