急!这个API用VB怎么声明和使用?

BOOL SinoConnCICalcFunc(int nport, UCHAR* pVerfiyMsg, UCHAR* pCalcMsg,UCHAR* pResultMsg)

这个API该怎么定义?还有我传进去的参数该怎么定义?
比如pVerfiyMsg的长度是10,我具体该怎么用?

急!

---

Declare Function SinoConnCICalcFunc Lib "dll文件名" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

---

Private Declare Function SinoConnCICalcFunc Lib "dll文件名" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

或

Public Declare Function SinoConnCICalcFunc Lib "dll文件名" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

---

返回类型应该是 As Integer

---

调用时VB会自动关闭。
自己研究看了资料使用byte数组
Public Declare Function SinoConnCICalcFunc Lib "dll文件名" (ByVal nport As Long, ByRef pVerfiyMsg As Any, ByRef pCalcMsg As Any, ByRef pResultMsg As Any) As Boolean

dim bytVerfiyMsg(9)
dim bytCalcMsg(19)
dim bytResultMSg(9)
dim strVerfiyMsg as string

call sinoconncicalcfunc(1,bytverfiymsg(0),bytcalcmsg(0),bytresultmsg(0))
这样使用才不会报错。

---

定义为long
传递参数类型用byte数组

传递指针的用varptr(pOut)

自动退出说明类型匹配,直接