求助,如何传递参数

接口定义如下:
    interface _Class1 : IDispatch {
        [id(0x60030000)]
        HRESULT start(
                        [in] long lIn, 
                        [in, out] long* lOut, 
                        [out, retval] long* );
用VbScript如下调用
set obj = createObject("test.class1")if isNull(obj) then
msgbox "Create object failture!"
else
Dim x
Dim y
Dim retVal
x = 1 retVal = obj.start(x,y)
msgbox retVal
msgbox y
end If
报:
类型不匹配
800A000D
microsoft vbscript 运行错误我想通过vbscript调用这个COM接口,应该如何传递.