Dim pGxdialog As IGxDialog Set pGxdialog =New GxDialog pGxdialog.AllowMultiSelect =False pGxdialog.Title ="Select polygon shapefile" Dim pGxfilter As IGxObjectFilter Set pGxfilter =New GxFilterShapefiles Set pGxdialog.ObjectFilter = pGxfilter Dim pGxobjects As IEnumGxObject Dim pGxDataset As IGxDataset If pGxdialog.DoModalOpen(0, pGxobjects) =FalseThen getPolygonFile ="" Exit Function EndIf pGxobjects.Reset Set pGxDataset = pGxobjects.Next Dim pFeatureClass as IFeatureClass Set pFeatureClass =pGxDataset