Por favor não me chame de relaxado... Mas agora deu outro erro, que eu já tentei tomar providência mas não deu certo... Public Function compilar(strInstruc As String)
Dim fac1, fac2 As Single
Dim values(1) As Single
Dim valor(2) As String
If Mid(strInstruc, 0) = "add" Then
valor(0) = Split(strInstruc, "(")(1)
valor(1) = Split(valor(0), ",")(0)
valor(2) = Split(Split(valor(0), ",")(1), ")")(0)
fac1 = CSng(valor(1))
fac2 = CSng(valor(2))
Call add(fac1, fac2)
ElseIf Mid(strInstruc, 0) = "subt" Then
valor(0) = Split(strInstruc, "(")(1)
valor(1) = Split(valor(0), ",")(0)
valor(2) = Split(Split(valor(0), ",")(1), ")")(0)
fac1 = valor(1)
fac2 = valor(2)
Call subt(fac1, fac2)
Call subt
End If
End Function Deu erro no parametro fac1 da função add dizendo que seu tipo de dado não bate com o que a função pede... Obrigado pela atenção Rodrigo