vb 调用 DELPHI编写的DLL 问题 急急急急急急急急急急！

Question

DELPHI方法名称：GetAuditCode 
          参数：string sNsrdnbm
          参数：string sNsrdzdah
          参数：string sInvcCode
          参数：string sInvcNum
          参数：string sPrintAmnt
          参数：string sPrintDate
          参数：string sHyDm
   返回值：string fp_jym
以上内容是接口文档提供的。 只能提供以上信息。
VB声明：
Public Declare Function GetAuditCode Lib "GetCertWord.dll" (ByVal sNsrdnbm As String, ByVal sNsrdzdah As String, ByVal sInvcCode As String, ByVal sInvcNum As String, ByVal sPrintAmnt As String, ByVal sPrintDate As String, ByVal sHyDm As String) As String
vb调用：    Dim JYNO As String
    Dim Length As Long
    Dim a As String
    Dim b As String
    Dim C As String
    Dim d As String
    Dim e As String
    Dim f As String
    Dim g As String
    
    Length = 100
    
    a = Trim("3508020230543")
    b = Trim("100000000451950130")
    C = Trim("235001192040")
    d = Trim("00634672")
    e = Trim("8075.5")
    f = Trim("20120407")
    g = Trim("06")
    
    
    JYNO = GetAuditCode(a, b, C, d, e, f, g)
我用XP的环境下调用直接报：“内存不能读”
在win7的环境下vb工程直接关闭掉。各位大哥，救命啊。 help!!!!!!!!
各位大哥，我只有那么多分了。

Answer 1

Public Declare Function GetAuditCode Lib "GetCertWord.dll" (ByRef sNsrdnbm As String, ByRef sNsrdzdah As String, ByRef sInvcCode As String, ByRef sInvcNum As String, ByRef sPrintAmnt As String, ByRef sPrintDate As String, ByRef sHyDm As String) As String