Public Declare Function CR_VBGetSingleRes Lib "DResult" (ByVal A As String, _
ByVal B As String, _
ByVal C As Long, _
ByRef D() As Long, _
ByVal E As Long, _
ByVal F As String, _
ByVal G As String _
) As Long
Function CallCResultsFunction()
Dim A As String
Dim B As String
Dim C As Long
Dim D() As Long
Dim E As Long
Dim F As String
Dim G As String
'set values for variables
A = "C:\doe22\"
B = "C:\DOE-2_Output\SFM-w10-v75-hAC-t1-cCAv-mRB-HV-SFDuctSeal-40pct-12pct - Baseline Design"
C = 3005006
E = 1
F = "2005"
'Now call function and send parameters
Call CR_VBGetSingleRes(A, B, C, D, E, F, G)
Debug.Print D(1)
End Function
|