I need to loop thru all the holes that are attached to a hole callout dimension.  When I get the annotations of the hole callout dimension that is attached to four holes, all holes seem to be one feature.  I need to dig one level deeper and get the individual holes.  All I need is an array of the holes.

Here is what I have:

   Set swDimension = swSelMgr.GetSelectedObject5(1)
    Select Case swSelMgr.GetSelectedObjectType2(1)
      Case swSelectType_e.swSelDIMENSIONS:
        Debug.Print "Dimension"
        If swDimension.IsHoleCallout Then
          Debug.Print "--> Hole Callout"
          Set swAnnotation = swDimension.GetAnnotation
          Call DisplayDimensionText(swAnnotation, swDimension)
          swEnts = swAnnotation.GetAttachedEntities
          Set swEnts = swEnts.GetAnnotation  <==  I think I need to get the annotations of an annotation to get the individual holes
          vAttEntTypeArr = swAnnotation.GetAttachedEntityTypes
        End If
     End Select

All thoughts and ideas are appreciated - Dave