Насколько понял, нужно вытащить Z для каждой вершины полигона. В этом случае можно попробовать сделать так:
Set pFeatureSelection = pFeatureLayer
Set pSelectionSet = pFeatureSelection.SelectionSet
pSelectionSet.Search pQueryFilter, False, pFCursor
Set pFeature = pFCursor.NextFeature
Set pPoints = pFeature.Shape
а потом пройтись по всем вершинам и выдрать оттуда Z через pPoints.Point(i).Z