Dim pFWS As IFeatureWorkspace Dim pWSF As IWorkspaceFactory Set pWSF = New ShapefileWorkspaceFactory Set pFWS = pWSF.OpenFromFile("C:\Temp", 0) Dim pfeatureclass As IFeatureClass Set pfeatureclass = pFWS.OpenFeatureClass("PolyShapefileName") Dim pgeodataset As IGeoDataset Set pgeodataset = pfeatureclass x1 = pgeodataset.Extent.XMax 'this is the right most point of the polygon extent