Need macro repair

I have this macro, that we use a lot. It was made for an old release of SolidWorks. It managed to survive the major releases but has lost a bit of functionality.

I could really use some help to fix it.

The function is that it puts a numbered balloon on each dimension the first time you run it, and that works. Then if you run it a second time it was supposed to remove all balloons again. Helpful if you wanted to remove some dimensions in between, and want to keep the right sequencing.

I would be very grateful for any assistance.

SolidworksApi/macros