Incorrect ring ordering when creating circle polygons

[ChrisHills]

I am trying to create circles with labels. The circles are created properly, however the labels do not display. After running "Repair Geometry" the labels appear (and the log gives the message "Incorrect ring ordering"). How do I create circle polygons properly?

      'Create a circle with given radius
      Dim pCircularArc As IConstructCircularArc
      Set pCircularArc = New CircularArc
      pCircularArc.ConstructCircle pCenter, pCenterRadius, True

      Dim pPolygon As IPolygon
      Dim pSegColl As ISegmentCollection

      Set pPolygon = New Polygon
      Set pSegColl = pPolygon

      pSegColl.AddSegment pCircularArc
      If Not pPolygon.IsClosed Then
          Dim pTopoOp As ITopologicalOperator2
          Set pTopoOp = pPolygon
          pTopoOp.IsKnownSimple = False
          pTopoOp.Simplify
          pPolygon.Close
      End If
                
      ' Add polygon to layer
      Dim pFeature As IFeature
      Set pFeature = pFeatureClass.CreateFeature
      Set pFeature.Shape = pPolygon
      pFeature.Value(pFeatureClass.FindField("Label")) = "whatever"
      pFeature.Store