Hello I am writing this code to get the custom properties from all of the componants in an assembly, this is what I have so far. I keep getting the error subscript out of range any help fixing would be greatly appreciated!

Option Explicit

Sub Main()

Dim swApplication As SldWorks.SldWorks
Dim swAssembly As SldWorks.AssemblyDoc
Dim swModel As SldWorks.ModelDoc2
Dim swComponent As SldWorks.Component2
Dim swCustPropMgr