(100分)奇怪问题？

Question

在VC中定义的Win API
BASE_EXPORT long WINAPI Func(UCHAR *p, int i,int j);
在VB的Module中声明
Public Declare Function Func Lib "DLL.dll" (ByRef p As Byte, ByVal i As Long,ByVal j As Long) As Long
窗体中调用
Dim r as Long
Dim p(0 to 7) as byte
r = Func(p(0),8,1)
运行的时候编译器给出实时错误9,下标越界...有几个同样的函数处理上没有什么问题，请问各位，这是我声明有问题，造成了调用函数不稳定，还是别的什么问题。
另外，在VC中调用那个Func是好用的。

Answer 1

改成Public Declare Function Func Lib "DLL.dll" (ByVal str As string, ByVal i As Long,ByVal j As Long) As Long
试试

Answer 2

两种方法
1 修改声明：Public Declare Function Func Lib "DLL.dll" (ByVal str As string, ByVal i As Long,ByVal j As Long) As Long2 修改调用方式
Dim p as byte
r = Func(p,8,1)

Answer 3

OK，Thanks all man for help