Manipulating Relationships in VBA (in 2013)

I started this VBA project after one of our partners wrote to me about a customer complaint regarding inactive relationships in Power Pivot. The scenario was the following: There are multiple relations between two tables, as pictured above. One is of course active while the others (one or more) are inactive.