Dim pFeatureCursor As IFeatureCursor Set pFeatureCursor = pFeatureClass.Search(Nothing, False) Dim dCount As Double Dim pIFeature As IFeature dCount = 0 Set pFeature = pFeatureCursor.NextFeature Do Until pFeature Is Nothing dCount = dCount + 1 Set pFeature = pFeatureCursor.NextFeature Loop MsgBox dCount