ValidaCFD

Hola que tal :
He querido hacer funcionar la funcion de finaliza pero me dice que :
La convencion de llamadas a DLL es incorrecta:

la estoy intentando llamar asi:

Private Declare Function GetErrorExt Lib "CFDLib.dll" () As String
Private Declare Function CadenaOriginal Lib "CFDLib.dll" () As String
Private Declare Function SelloDigital Lib "CFDLib.dll" () As String
Private Declare Function TimbrarCFD Lib "CFDLib.dll" (ByVal IniFileName As String) As TError
Private Declare Function FinalizaCFDLIB Lib "CFDLib.dll" ()

Public Function EnviaTimbrePACEdicom(cArchivo As String) As Boolean
TimbrarCFD cArchivo
MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt
FinalizaCFDLIB
End Function

Me timbra de forma correcta pero en FinalizaCFDLib me marca :
La convencion de llamadas a DLL es incorrecta:

Y la estoy poniendo por que despues de hacer el timbrado me marca error y me saca de VISUAL BASIC

FinalizaCFDLib es un procedimiento, no regresa ningun valor.

No deberias definirlo como "Sub"? (no se programar en Visual Basic, asi que lo mas seguro es que este diciendo puras mensadas, pero ya sabes la Anecdota del burro que toco la flauta....)

DADO escribió:FinalizaCFDLib es un procedimiento, no regresa ningun valor.

No deberias definirlo como "Sub"? (no se programar en Visual Basic, asi que lo mas seguro es que este diciendo puras mensadas, pero ya sabes la Anecdota del burro que toco la flauta....)

Declaras Funcion

Public Declare Function FinalizaCFDLib Lib "CFDLib.dll" () As String

Ejecutas

Dim OK As String

OK = FinalizaCFDLib()