'两种方式:
'1
Public Declare Sub GetNext Lib "xxx.dll"(Byval a As String, Byval FCount As Integer, Byval b As String, Byval c As String)
Dim a, b, c As String
Dim fCount As Integer
a = "1234567890" '字符串变量必须事先赋值。否则需声明为定长字符串变量。
b = "12345678"
c = "87654321"
fCount = 1
Call GetNext(a,fCount,b,c)
'2
Public Declare Sub GetNext Lib "xxx.dll"(Byval a As Byte, Byval FCount As Integer, Byval b As Byte, Byval c As Byte)
Dim a(10), b(8), c(8) As Byte
Dim fCount As Integer
'这里赋值
'......
Call GetNext(a(0),fCount,b(0),c(0))