VBA - Looking to delete relations left over from broken references

I have a lot of models that my teams are working on that have a lot of broken relations still in the models they show the dreaded -> x ...is there a way in run through the model and remove only the "broken" dangling relations.  Does anyone have a macro to do this yet.  Ive looked at using 2017 SOLIDWORKS API Help - SketchConstraintsDel Method (IModelDoc2) , but would be lengthy to go through all the relation types....

SolidworksApi macros