The NextSegment property returns the next segment that is adjacent to a node, or it returns Nothing if no such segment exists.
Examples:
The following VBA example creates an ellipse on the active layer, converts it to curves, and returns its first segment.
Sub Test()
Dim s1 As Shape
Dim sg As Segment
Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2)
s1.ConvertToCurves
Set sg = s1.Curve.Nodes(1).NextSegment
End Sub