what is this. i could not found any result and i found this in some of old folders.

Sub Test()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange

For Each s In sr
If s.Type = cdrCurveShape Then
Dim firstNode As Node
Set firstNode = s.Curve.nodes(1)

Dim lastNode As Node
Set lastNode = s.Curve.nodes(s.Curve.nodes.Count)

s.Curve.AppendSubpathRectangle lastNode.PositionX, lastNode.PositionY, firstNode.PositionX, firstNode.PositionY
End If
Next s
End Sub

what is the end result