If you see the definition of GetInMacro you will notice it throws NotImplementedException that's why you are getting the exception, put some logical code in that method.
tha.nks for your kindly reply, I made it ....
just a simple code that connect to SW........
Dim app As SolidWorks.Interop.sldworks.SldWorks = CreateObject("sldworks.application")
..thank you all