Public Declare Function Calc_C Lib "RealSteps.dll" Alias "fnCalc_C" ( _
    ByVal srcFileName As String, _
    ByRef vLines As Long, _
    ByRef vRSteps As Long, _
    ByRef vComment As Long) As LongPublic Sub CalcFromCheckForm(fName As String)
    Dim mStepCnt As Long
    Dim mStepReal As Long
    Dim mStepComm As Long
    Dim mCommRate As Single
    Dim mKibo As Long    If Calc_C(fName, mStepCnt, mStepReal, mStepComm) <> 0 Then
        MsgBox mStepCnt
        MsgBox mStepReal
        MsgBox mStepComm
    End If
End Sub
有什么问题么?