ExecuteExcel4Macro in Zelle verwenden

Hallo
Ich würde gerne eine Formel die als String in einer Zelle steht als Formel selbst benutzen.
Dazu würd ich das ganze gerne als Funktion eines Makros Veerwenden die ich direkt in einer Zelle verwenden kann.
Also angenommen in A1 steht "=A2 + A3" und ich schreibe in B1 als Formel =Funktion("A1") dann sollte darin das ergebnis der Rechnung von A1 stehen.
Mein bisheriger Ansatz war die String-zu-Formel-Umwandlungssache mit hilfe der "ExecuteExcel4Macro" Funktion zu machen. Allerdings funktioniert diese nur innerhalb eines Makros, nicht aber in Zellen direkt.
Kann man diese ExecuteExcel4Macro funktion abgeändert nachprogrammieren oder gibt es eine Andere Möglichkeit aus einem String eine Formel zu erhalten die ich auch aus einer Zelle in Excel direkt aufrufen kann?

miniversum

Function Funktion(r As String) As Variant
Application.Volatile
Formel = Range(r).Value
Funktion = Evaluate(Evaluate(Formel))
End Function