[CONNECT VBA] Create Shapes from Areas Bounded by Elements

I'm looking to create a VBA macro would create shapes from all the possible flood areas within the selected elements. The solution I'm leaning towards would build a network from the elements then create the shapes from the closed loops excluding the shapes that encompass any nodes.

Ideally I wouldn't bother with a network and instead create the shapes using the GetFloodBoundary method, but it requires a seed point. Is there a better way to accomplish this?