I have an input box that prompts the user for a math formula, e.g. 5+3-2.5/6
How can I get VB to do the math on that string and return the answer?

Option Explicit

Dim InpStr As String
Dim Ans as Double

Sub DoMath()

InpStr = InputBox("Enter formula.")

Ans = convert InpStr to formula and solve

MsgBox "Answer is: " & Ans

End Sub
--
Ken Hudson

Sub DoMath()
MsgBox (Evaluate("=" & Application.InputBox(prompt:="enter string", Type:=2)))
End Sub

--
Gary''s Student - gsnu200772


"Ken Hudson" wrote:

> I have an input box that prompts the user for a math formula, e.g. 5+3-2.5/6
> How can I get VB to do the math on that string and return the answer?
>
> Option Explicit
>
> Dim InpStr As String
> Dim Ans as Double
>
> Sub DoMath()
>
> InpStr = InputBox("Enter formula.")
>
> Ans = convert InpStr to formula and solve
>
> MsgBox "Answer is: " & Ans
>
> End Sub
> --
> Ken Hudson

Thank you.
--
Ken Hudson


"Gary''s Student" wrote:

> Sub DoMath()
> MsgBox (Evaluate("=" & Application.InputBox(prompt:="enter string", Type:=2)))
> End Sub
>
> --
> Gary''s Student - gsnu200772
>
>
> "Ken Hudson" wrote:
>
> > I have an input box that prompts the user for a math formula, e.g. 5+3-2.5/6
> > How can I get VB to do the math on that string and return the answer?
> >
> > Option Explicit
> >
> > Dim InpStr As String
> > Dim Ans as Double
> >
> > Sub DoMath()
> >
> > InpStr = InputBox("Enter formula.")
> >
> > Ans = convert InpStr to formula and solve
> >
> > MsgBox "Answer is: " & Ans
> >
> > End Sub
> > --
> > Ken Hudson