проблеммы с spath.Extract

Corel X4 14.0.0.567

Sub test()

Dim s As Shape
Dim spath As SubPath
Dim s1 As Shape
Dim i As Long
Dim nr As NodeRange

Set s = ActiveShape
Set nr = s.Curve.Selection
i = nr(1).SubPathIndex
Set spath = s.Curve.SubPaths(i)
spath.Extract

End Sub

Не подскажете, почему отделяется не та SubPath, в которой выделен узел, а последняя по индексу.
Хотя, если меняю spath.Extract на spath.delete, удаляется необходимая