VB向dll传递数组的问题

VB中代码：(在Excel里面写的）
Declare Function Cal Lib "cal.dll" (ByRef inarr As Double, ByVal num As Long, ByRef outarr As Double)

Sub Macro1()
Dim inarr(3) As Double, outarr(3) As Double
inarr(0) = 1
inarr(1) = 2
inarr(2) = 3
inarr(3) = 4.5

Call Cal(inarr(0), 4, outarr(0))
End sub

DLL中代码：
void _stdcall Cal(double *inarr, int num, double *outarr)
{
int nCount=num;
int i;
for(i=0;i<nCount;i++)
{
outarr[i]=inarr[i] * 2;
}
}

为什么一运行就崩溃？？
dll是用VC写的，我的意思是哪里出了错？怎么才能把数组传进去？谢谢~~

VB 传递整个控件数组的问题 VB中二维数组传递的问题 关于数组传递的问题 VB数组的问题!!!!! VB数组的问题 vb数组的问题 请教VB问题. 如何传递控件数组到模块中? VB 中如何传递OptionButton控件数组的下标 控件数组的传递 VB数组排列的问题