VB6与DLL函数 数组传递的问题

Question

用VC6编写了一个DLL。DLL中有一个函数 需要根据VB6传过来的几个数据生成一个数组，而后把数组的值传回给VB6.具体代码如下：// 整数转BCD码，4位数转存后为2个字节 比如1234 转存后为两个字节 低字节高4位为3 低4位为4 高字节高4位为1 低4位为2
 extern "C" _declspec(dllexport) char _stdcall int2b(int shu , unsigned char *outArr )
{   
 unsigned char E1,E2,E3,E4 ;
 int shu2;   
 E4=int(shu/1000);
 shu2=shu-E4 * 1000;
 E3=int(shu2/100);
 shu2=shu2-E3 * 100;
 E2=int(shu2/10);
 shu2=shu2-E2 * 10;
 E1=shu2;   
 outArr[0]= (E2<<4) | (E1&15);
 outArr[1] =(E4<<4) | (E3&15);
 return 1;
}VB6中的调用代码如下：Dim sz(10) As Byte
Dim BH As Long
DIM I AS LONG
FOR I=0 TO 10
  sz（I）=0
NEXT I
BH = 1234
A = int2b(BH, sz(0))以上代码得到的结果却是sz(0)=86 sz(1)=185在VC中调试此代码得到的结果是第一个值为&H34=52,第二个值是&H12=18 为什么VB6调用DLL中的此函数后，得到的结果却不对呢。   
另外还发现,如果把函数 extern "C" _declspec(dllexport) char _stdcall int2b(int shu , unsigned char *outArr )
{   
 outArr[0]=39;(当然这个数随意)
 outArr[1]=231;(当然这个数随意)
 return 1;
}VB调用此函数后的数是与函数中的赋值是一致的.请问是何原因。