Sub Test()
Dim s As Shape
Dim sgr As SegmentRange
Dim seg As Segment
Dim i As Long
Set sgr = ActiveShape.Curve.Segments.All
For i = sgr.Count To 1 Step -1
  Set seg = sgr(i)
  If seg.Type = cdrLineSegment Then

 sgr.Remove i
  Else

 If seg.StartNode.Type <> cdrCuspNode And seg.EndNode.Type <> cdrCuspNode Then


sgr.Remove i

 End If
  End If
Next i
For Each seg In sgr
  Set s = ActiveLayer.CreateCurveSegment(seg.StartNode.PositionX, seg.StartNode.PositionY, _

 seg.EndNode.PositionX, seg.EndNode.PositionY, _

 seg.StartingControlPointLength, seg.StartingControlPointAngle, _

 seg.EndingControlPointLength, seg.EndingControlPointAngle)
  s.Outline.Width = 0.01
  s.Outline.Color.RGBAssign 255, 0, 0
Next seg 
End Sub