On Sun, 25 Oct 2009 22:14:59 -0400, Ron Rosenfeld
wrote:

I know you're fond of one-liners:

Evaluate(WorksheetFunction.Substitute(Replace(s , "x", "*"), "*", "+", 2))

Hmmm, forgot the rest of the code, although the above line has the essence:

===============
Function Proc(s As String) As Double
Proc = Evaluate(WorksheetFunction.Substitute _
(Replace(s, "x", "*"), "*", "+", 2))
End Function
=====================
--ron