Hi, I am trying to insert a macro feature. I am having noluck. Please help. Here is my code.

I am getting an error at "boolstatus =myFeat.MakeSubFeature(selFeat)"

Sub main()
Set swApp = Application.SldWorks
Set myDoc = swApp.ActiveDoc
Set mySelMan = myDoc.SelectionManager


Dim ThisFile As String
Dim Methods(8) As String
Dim Names As Variant
Dim Types As Variant
Dim Values As Variant
Dim vEditBodies As Variant
Dim options As Long
Dim dimTypes As Variant
Dim dimValue As Variant
Dim icons(2) As String

ThisFile ="\\\\ghfiler1\\iso9000\\Libraries_SW8\\gh_library\\macro\\macros underdevelopment\\bounding box\\boundingbox.swp"


Methods(0) = ThisFile: Methods(1) = "BoundingBoxCode": Methods(2) ="swmMain"
Methods(3) = ThisFile: Methods(4) = "BoundingBoxCode": Methods(5) ="swmMain"
Methods(6) = "": Methods(7) = "": Methods(8) = "" 'A securityroutine is optional

icons(0) ="\\\\ghfiler1\\iso9000\\Libraries_SW8\\gh_library\\macro\\macros underdevelopment\\bounding box\\256-red.bmp"
icons(1) ="\\\\ghfiler1\\iso9000\\Libraries_SW8\\gh_library\\macro\\macros underdevelopment\\bounding box\\256-red.bmp"
icons(2) ="\\\\ghfiler1\\iso9000\\Libraries_SW8\\gh_library\\macro\\macros underdevelopment\\bounding box\\256-red.bmp"


Names = Empty
Types = Empty
Values = Empty
options = swMacroFeatureAlwaysAtEnd


Dim selFeat As Feature
Dim swFeatMgr As SldWorks.FeatureManager
Set selFeat = mySelMan.GetSelectedObject6(1, -1)
Set swFeatMgr = myDoc.FeatureManager
Set myFeat = swFeatMgr.InsertMacroFeature3("swmBoundingBox","callBackMethods", (Methods), Names, Types, Values, dimTypes,dimValue, vEditBodies, (icons), options)
Dim boolstatus As Boolean
boolstatus = myFeat.MakeSubFeature(selFeat)

End Sub
SolidworksApi macros