Насколько понял, нужно вытащить 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