Amigo,
El problema es que DLLdame_id() es un SUB.
Y deberia ser una FUNCTION porque
al asignarlo a una variable debe retornar un valor y solo las FUNCTION retornan valores, el SUB
No retorna nada.
Por ejemplo, el siguiente codigo provocara el mismo error que tu comentas:
Código:
Option Explicit
Private Sub Form_Load()
Dim x As Integer
x = Funcion_Loca(1)
End Sub
Public Sub Funcion_Loca(i As Integer)
End Sub
Para corregirlo debemos convertir a Funcion_Loca en una FUNCTION y retornar un valor:
Código:
Option Explicit
Private Sub Form_Load()
Dim x As Integer
x = Funcion_Loca(1)
End Sub
Public Function Funcion_Loca(Numero As Integer) As Integer
Funcion_Loca = Numero + 1
End Sub
Espero te sirva. Saludos.