Sub Test() Dim s As Shape Set s = ActiveLayer.CreateCurveSegment(2, 8.3, 5.3, 8.5, 1.5, -62, 2.4, 84) s.Curve.Segments(1).AddNodeAt 0.5, cdrRelativeSegmentOffsetEnd Sub