With Each Statment

With Each element_variable In element_containing_structure [As alias_name ]
   [code_block]
End With