Demo.DemoClass为编译好的COM组件中有一个ADD方法，参数为两个long，返回值也是long

       dim demo as CObject
       demo.CreateObject("Demo.DemoClass" , ,"Demo.dll.manifest")
       debug.Print demo.Run("Add" ,123 ,456).ToString