Hello I am trying to get the custom property "Description" from the parts active configuration but no mtter what I do the string comes up empty. the code doesn't break but no message box appear. Any help is appreciated!

Option Explicit

Sub main()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As ModelDoc2
  Dim swCustpropmgr As CustomPropertyManager
  Dim swConfig As Variant
  
Set swApp = Application.SldWork