Set First Noe w/o breaking subpath(s)

[dungbtl]

An oldie but goodie and a PITA
Running the following w/ combined subpath(s) breaks it

Any solution to keep the subpath from breaking apart.
Same would go for applying the subpath 1st then the main path

One way around it is by breaking apart the entire graphic but that
sometimes becomes cumbersome.

Any chances??

Sub SetFirstNode()      'Sets 1st Node Start Point
    Dim s As Shape
    Dim nr As NodeRange
    
    Set s = ActiveShape
    If s Is Nothing Then MsgBox "Please select a single node.", vbExclamation, "Set First Node": Exit Sub
    
    Set nr = s.Curve.Selection
    If nr.Count <> 1 Then MsgBox "Please select a single node.", vbExclamation, "Set First Node": Exit Sub
    
    If s.Curve.Closed Then
        nr.BreakApart
        s.Curve.Nodes.First.JoinWith s.Curve.Nodes.Last
    Else
        MsgBox "The shape must be closed to set First Node.", vbExclamation, "Set First Node": Exit Sub
    End If
End Sub