Hello I am starting this code and I am trying to get the model type (Assembly,Part, or Drawing) it was working at first but now every time I run the code it doesn't identify the model type. thank you!

Option Explicit

Sub main()
   Dim swApp As SldWorks.SldWorks
   Dim swModel As ModelDoc2
   Dim swAssembly As AssemblyDoc
   Dim swCustpropmgr As CustomPropertyManager
   Dim swConfig As Configuration
Dim swModeltype