¿Cómo llamar a una DLL creada por VC en VB?

EDcode(Text1.Text, Text2.EDcode(Text1.Text,Text2.Text, "E") reemplaza los dos primeros parámetros con s1 y s2, que son variables de cadena. El espacio asignado antes de llamar es el siguiente

dim s1 como cadena

dim s2 como cadena

dim i1 como byte

s1=space(333) 'El espacio debe ser lo suficientemente grande

s2=space(333)

i1=&.h64

Llamar a EDcode(s1, s2, i1)

llamar a EDcode; (s1, s2, i1)

Quizás

===========

Para ingresar una variable, primero debes

s1=text1.text

s2=text2.text

Luego llame a la función DLL. La cadena después de la operación no debe ser más larga que la cadena pasada. Si el resultado es más largo se debe sacar en otra variable.

Si lo anterior no funciona, intente reemplazar ByRef en la función VB con byval, la forma en que VB y PB pasan parámetros. no es lo mismo.