Use this VBA function:

Function eval(s As String)
eval = Application.Evaluate("=" & s)
End Function

Then you can use this in a cell as:

=eval(A1)

To install,
Alt+F11 to go to the VBA editor.
Insert | Module
Paste the above code.
Ready to use

HTH
Kostis Vezerides