Sub Test() Dim seg As Segment Dim t As Double If ActiveShape.Curve.Subpaths(1).FindSegmentOffset(3, seg, t) Then seg.Type = cdrLineSegment Else MsgBox "The first subpath is less than 3"" long." End IfEnd Sub