VBA exel function - eval()

### Макрос для excel добавляет ф-ю eval() что позволяет текс выполнить как исполняемый код
Function Evaluate_Formula(formula_text As String) As Variant
     Application.Volatile
    Evaluate_Formula = Application.Evaluate(VBA.Trim(formula_text))
End Function


Function Text_Of_Formula(rng As Range) As String
      Application.Volatile
      Text_Of_Formula = rng.Formula


End Function
Function Eval(formula_text As String)
formula_text = Replace(formula_text, ",", ".", 1)
    Application.Volatile
    Eval = Application.Evaluate(formula_text)
End Function