Macro to return data from a DLL

[ReportSmithing]

I've created a simple ActiveX DLL but can not get the below code to return a value. The macro compiles successfully and the macro recognizes and "see" the function, but I'm not getting any return data.

Does anyone know (or what to write) to present the value back through the macro.


Declare Function PassData Lib "c:\PassDataDll.dll"(ByVal themsg as string)as integer

Sub TESTDLL()

dim themsg as string
dim result as variant

themsg = ""
result = PassData(themsg)
MsgBox themsg

End Sub


Thank you!

 

[CharlesCook]

try:

MsgBox result

CharlesCook.com
ADP - PeopleSoft - SAP
ReportSmith - Crystal Reports - SQR - Query - Access
Reporting - Interfaces - Data Mining