How do I remove multiple shapes from a layer in visio using VBA

Question

I\'m trying to remove multiple shapes from a layer. I\'ve seen other codes on this forum that remove or add one shape from a layer but not multiple shapes. In the code below,