Delete Deactivated Features CATIA macro

Hi folks,

I'm working on VBscript to delete unused Bodies in a CATPart and would like to get some help please!

In one CATPart I have multiple Bodies with Assembles and Bodies inside (see image).
I'd like to wirte a macro, which can run a search through out the CATPart and delete all the deactivated Assembles and the bodies inside them,
for example here Assemble.9/SALT, Assemble.74/SAD, Assemble.14/Winkelstueck_B1 and so on.

I tend to use the loop
For i = 1 To part1.Bodies.Count
to run through the CATPart but don't know how to make the macro recognize the deactivated Assembles and delete the Body inside ?
Have anyone any idea ? Thanks for your help.