Caros amigos,

   Minha Dúvida: Preciso executar um calculo constante em uma fórmula, mas ela esta contida em uma Variável do tipo String, exemplo: varA = "((2000/100) * 5)"

quero executar a seguinte linha de instrução:  VarB = varA, retornando em VarB o resultado do calculo da string VarB.

   Não consigo de forma alguma, imagino que tenha alguma função que faça isto, mas já pesquisei bastante e não achei.

   Estarei imensamente agradecido por qualquer tipo de ajuda...

 

 

Dim strCalc As String
Dim pos As Integer, pos1 As Integer, pos2 As Integer, pos3 As Integer
Dim num1 As Long, num2 As Long, num3 As Long
Dim valor As Long
Dim strTemp As String

strCalc = Text1.Text
pos = InStr(1, strCalc, "/")
pos1 = InStr(1, strCalc, ")")
pos2 = InStr(1, strCalc, "*")
pos3 = InStr(pos2, strCalc, ")")

strTemp = Mid$(strCalc, 3, pos - 3)
num1 = CLng(strTemp)

strTemp = Mid$(strCalc, pos + 1, (pos1 - (pos + 1)))
num2 = CLng(strTemp)

strTemp = Mid$(strCalc, pos2 + 1, ((pos3 - pos2) - 1))
num3 = CLng(strTemp)

valor = ((num1 / num2) * num3)

Me.Print valor