Has anyone had experience with the SetBodiesToKeep and creating the needed Body array?

There is an example that works which shows this that is called Cut Body and Keep All Bodies Example (VBA)

It works well.

But when I try to use it, on my application,  I need to create the body array that is used to identify which bodies I would like to keep. On my application I am unable to create the array.

My beginning simple part is a block that has a sketch of a rectangle that when it does a extruded cut it creates a multibody part. (much like the example) , Next I tried to use the SetBodiesToKeep but I can't seem to load the arrray with newly created multibodys.

Any help would be appreciated.  I am very new to this and seem to get stuck in the most simple ways.

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2
Dim Part As Object

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, 0.082169, 0.082169, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)

' The part above is just a block that has a rectangular sketch that will bisect it when this runs.  It will then pull up the select bodies to keep
' where I hope to be able to select which body to keep.

   
  '' need body array from the above

Dim bodyarray(0) As Object

   
 
  myFeature.SetBodiesToKeep False, bodyarray(0), swThisConfiguration, Nothing

End Sub