Problem with connecting Freeform shapes

Hi,
I'm working on a macro to automatically create shapes and connect them thereafter according to a list. In this process, each shape(in this case, a rectangle) might have a double digit number of connections. Therefore, I created a freeform shape in stead of the usual CurrentSheet.Shapes.AddShape(1,100,200, 200, 200) that creates an autoshape rectangle.

This helped me by providing as many nodes as I required to make connections on each shape. However, these connections are cutting across the shapes and cannot be manually adjusted. When I tried to use the rerouteConnections command, the connections are made to the nearest node dislodging or eliminating the connections at these nodes. This is not desirable as I will be depicting more than one connection between two boxes according to the type of common property they share.

Connections made between two autoshapes creates nodes within the elbow connector thereby making it adjustable manually. However, these nodes might or might not be present in freeform shape connections. Besides, as shown in the attachment, more than one connection is merged into the same line.

Is it possible to overcome this problem? Alternatively, is it possible to introduce new nodes on an autoshape rectangle?

Thanks in advance.

VBA Freeform.PNG

Sorry, my bad. Please refer to the attached image.

Thank you.