How to turn a string formula into a real formula

Question

I have 0,4*A1 in a cell (as a string). How can convert this "string formula" into a real formula and calculate its value, in another cell?

Answer 1

Evaluate might suit:

Function Eval(Ref As String)
    Application.Volatile
    Eval = Evaluate(Ref)
End Function