请教怎么把宏文件转化为VB的DLL的

CadProE

大家是怎么把宏文件转化为VB 编程插件的？一条一条语句重新编写吗？

为了省点事，我想编个DLL直接调用宏文件（SWP结尾），下面语句在SWP里面好使，在VB里面编译为DLL为什么就不好使了？
Dim boolstatus As Boolean
Dim SWAname As String
SWAname = iSwApp.GetCurrentMacroPathName SWAname = Left(SWAname, InStrRev(SWAname, ".") - 1) + ".swp"
boolstatus = iSwApp.RunMacro(SWAname, "SWAssistant", "main")
改成这样也不行
SWAname = "C:\SolidWorks\Macro\SWAssistant.swp"
boolstatus = iSwApp.RunMacro(SWAname, "SWAssistant", "main")
点击菜单运行，一点反应也没有。
高手看看问题在哪？