Buenas amigos, estoy bastante pregunton ultimamente, de antemano gracias por su pasciencia y por su tiempo:
Con relacion a otro hilo me econtraba buscando olgo con lo cual evaluar el resultado de Funciones y demas, lo que encontre fue esta funcion que en principio seria la solucion a todos mis problemas, la sorpresa me la lleve cuando trate de ejecutar la funcion "que pego debajo de Command1_Click()" evaluando funciones con un solo parametro no tenia problemas,pero cuando intento ejecutar o evaluar digamos funciones con mas de un parametro no me da los resultados como por ejemplo la funcion Multiplica que les pego debajo.
Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Private Sub Command1_Click()
Dim cadena As String
'En txtformula pongo por ejemplo: Multiplica(10,10)
cadena = "Form1." & Me.txtformula.Text
code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0
End Sub
Public Function Multiplica(Factor1 As Integer, Factor2 As Integer)
Multiplica = msgbox(Factor1 * Factor2)
End Function
Gracias nuevamente por su tiempo.