VBA & Circular Patterns

[isocam]

Can anybody help????

I have a part (ipt) containing various holes drilled on various pitch circle diameters (see attached part)

The part in question has 3 separate circular patterns,

Does anybody know how I can tell what sketch goes with what pattern?

I have the following macro that I am using but it crashes on the line

Set oParentFeature = oCP.ParentFeatures.Item(1)

this is the macro:-

Public Function ArrayGeometry(Doc As PartDocument, sketch As PlanarSketch)  

Dim oDef As PartComponentDefinition

Set oDef = Doc.ComponentDefinition

Dim oPar As Inventor.Parameter

Dim oFPE As FeaturePatternElement

Dim oParentFeature As ExtrudeFeature

Dim oSketch As PlanarSketch

Dim oCP As CircularPatternFeature

For Each oCP In oDef.Features.CircularPatternFeatures

Set oCP = oDef.Features.CircularPatternFeatures.Item(oCP.Name)

Set oParentFeature = oCP.ParentFeatures.Item(1) THIS IS THE PROBLEM LINE!!!

Set oSketch = oParentFeature.Profile.Parent

If oSketch.Name = sketch.Name Then  MsgBox "entity is part of " + Ocp.Name   

End Function

Any help would be appreciated!!!!!

Many thanks in advance

IsoCAM