VB函数奇怪的不能引用，请老师们解惑！！！

Function ZxdMB(mb, nZS)
Select Case (nZS)
Case 0: bxh = “000,340,014,838,578,993,761,612,916,019,667,345,675,370,802,362,340,208,696,691,765,411,442,340,322,340,101,330,013,241,242,332,440,243,041,442,112,230,040,120,014,”
Case 1: bxh = “001,885,623,965,935,913,834,313,337,969,903,341,868,385,725,555,149,630,811,323,343,443,430,442,124,013,330,231,042,342,222,412,213,340,231,131,214,404,432,420,300,”
Case 2: bxh = "002,635,983,164,306,007,049,866,049,410,487,233,212,206,132,
Case 3: bxh = …
…
Case 999: bxh = “999,992,753,912,618,999,875,176,279,706,983,259,728,474,264,269,980,248,418,424,086,658,687,596,785,766,885,959,955,967,555,888,956,567,797,988,897,777,686,758,685,”
End Select
Dim strarr, JJtx(41)
strarr = Split(bxh, “,”)
For i = 0 To UBound(strarr)
JJtx(i) = strarr(i)
Next
ZxdMB = JJtx(mb)
End Function
这个函数在DLL内写的，可以引用运行
Set ZM = CreateObject(“duy3.class”)
nhm=ZM.ZhxdMB(mb, nZS) '引用运行正常

但上面这个ZhxdMB(mb, nZS)函数被DLL内另一个函数引用编译后，就是不能在软件内引用，不知道什么问题，请老师指点！！！

Function ZhdMB_Hy(mb, nZS)
Dim xh 'As Integer
For j = 0 To 999
If Format(nZS, “000”) = Format(ZxdMB(mb, j), “000”) Then xh = j
Next
ZhdMB_Hy = xh
End Function
能编译通过，但不能在这个函数内运行ZhdMB(mb, nZS)函数；【ZhdMB_Hy(mb, nZS)这个在表格的VBA内能运行】

nhmy=ZM.ZhdMB_Hy(mb, nZS) '不能引用运行

请老师们指点问题所在，先谢谢了！！！