Sub XPosition() Dim s1 As Shape, s2 As Shape Dim s As Shape Dim cps As CrossPoints Dim cp As CrossPoint Set s1 = ActiveLayer.CreateEllipse(4, 2, 1, 0) Set s2 = ActiveLayer.CreateEllipse(3, 1, 2, 5) ActiveDocument.ClearSelection s1.AddToSelection s2.AddToSelection ActiveSelection.Combine Set s = ActiveSelection.Shapes(1) Set cps = s.Curve.Subpaths(1).GetIntersections(s.Curve.Subpaths(2)) MsgBox cps.Count MsgBox cps.Item(1).PositionXEnd Sub