Get Nearest Polygon

Dear All,

How to get the nearest Polygons which contains the selected elements (using VBA)?

In the attached screenshot, the Majenta color represents the selected elements and the corresponding nearest polygons was represented in Green color.