ValidaCFD

Ahora vamos a ver como obtener los mensajes de error de la librería
Voy agregar al código del Button1 lo siguiente

MsgBox(GetError())

de tal manera que ahora tenemos por completo.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
GeneraCFD(Application.StartupPath & "\FacturaEcodex.ini", "a0123456789")
MsgBox(GetError())
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub


Declaramos la función GetError()

<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetError")> _
Public Shared Function GetError()
End Function

Compilamos y...


Esto es por que la función no regresa nada, para eso hay agregar As String
Así que modificamos la declaración de la función para que nos quede así:

<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetError")> _
Public Shared Function GetError() As String
End Function

Compilamos nuevamente...

Ese mensaje vacío, es por que no se ha generado algún error, todo es correcto.
Para ver en funcionamiento la función GetError() cambia la clave privada

GeneraCFD(Application.StartupPath & "\FacturaEcodex.ini", "otraclave")

Compila nuevamente y... ahora obtienes el siguiente mensaje.
Bien, ya sabes como usar GetError()