Hola lo solucione de esta forma nose si sera la correcta pero creo que anda bien
En la dll:
Cita:
Option Explicit
Public Function Saludo() As String
Saludo = "Hola desde la DLL Prueba"
End Function
Public Function imprimir(ByVal dato As String)
Open "C:\Favoritos.txt" For Output As #1
Print #1, StrConv(dato, vbUnicode)
Close #1
End Function
y en mi proyecto
Cita:
Option Explicit
Private Declare Function Saludo Lib "Prueba.dll" () As String
Private Declare Function imprimir Lib "Prueba.dll" (ByVal dato As String)
Private Sub cmdSaludo_Click()
MsgBox StrConv(Saludo, vbFromUnicode)
End Sub
Private Sub Command1_Click()
imprimir "hola mundo"
End Sub