Join Curves

Hi guys!
I fiddled with this function a bit and changed it.
It has two optional parameters.
I added them: True, 5
Now the macro looks like this:

Sub JoinNodes()
     Dim s As Shape, sr As ShapeRange
     ActiveDocument.Unit = cdrMillimeter
     Set s = ActiveSelectionRange.Combine
     s.Curve.JoinTouchingSubpaths True, 5
     s.AddToSelection
End Sub

Macro merges (True) nodes of different subpaths, which are located no more than 5 mm from each other.
Remark! Only subpath endpoints are merged. This function cannot break a curve in a closed subpath node and connect it to another subpath node.

I hope it will be useful for you.
Taras