How to delete shapes including a string

Hi everyone!

I'm trying to create a VBA-macro to delete all objects that contain a string e.g. "Tester".

So all objects (also parent, or parents-parent, etc.) that contain the string "Tester" should be found and deleted.

Any idea?

Thanks!