The PositionY property returns or specifies the vertical position, or y-coordinate, of a subpath's starting point, treating the subpath as a separate object. The position is relative to the reference point specified by the Document.ReferencePoint property.
Examples:
The following VBA example aligns all subpaths vertically so that their top sides are 3 document units from the bottom of the page:
Sub Test()
Dim sp As SubPath
ActiveDocument.ReferencePoint = cdrTopLeft
For Each sp In ActiveShape.Curve.Subpaths
sp.PositionY = 3
Next sp
End Sub