Sub Test() Dim s As Shape Set s = ActiveLayer.CreateCurveSegment(2, 8.3, 5.3, 8.5, 1.5, -62, 2.4, 84) On Error Resume Next ' Lines in green are a workaround s.Curve.Segments(1).BreakApartAt 1.3, cdrAbsoluteSegmentOffset On Error GoTo 0End Sub