Try setting this line:pSelectionSet.Update Nothing, True, pFeatureCursor
to:pSelectionSet.Update Nothing, False, pFeatureCursor
Also help file says:All edits to features that participate in a Topology or Geometric Network must be bracketed within an edit operation.