vb声明调试,请大家帮忙

最近调一个医保接口，就一个声明和调用的问题上卡了一个星期没有解决，和接口商只要到了一个dephi的声明，而我用的是VB，怎么整都不行，请大家帮帮我吧，

我已经发一个帖子[Dephi声明如何转VB声明],不少朋友给了我热心的帮助，但是天不帮我，还没调通.

现在我把整个调试环境发给大家,哪位不忙不妨调调
    匿名提取文件连接 http://pickup.mofile.com/7587685010050640 
    或登录Mofile，使用提取码 7587685010050640 提取文件

我在此致以最最崇高的感谢!!!

---

下载错误

---

代码在哪里？

---

可能某些参数不一定兼容 VB 的 API 调用，你可以要求对方提供一个 C 的调用例子，然后看看能否转成 VB。

---

引用

下载错误

........

---

能下载啊,打开http://pickup.mofile.com/7587685010050640
,点击[下载文件(IE浏览器)],不能下载可能是你的IE或防火墙阻止了吧
或者打开http://file.mofile.com,输入提取码7587685010050640,然后[提取文件]

---

下载不了，你不如上传到CSDN资源上:http://u.download.csdn.net/upfile/

---

各位高手朋友可以看一下楼主的原帖链接。

VB code:
Public Declare Function checkuser Lib "zdtlmti.dll" _
(ByVal lpstrOperID As Long, ByVal lpstrReturnMessage As Long) As Long

Sub test()
Dim strOperId As String
Dim strMsg As String

'字符串初始化'
strOpe