mathematische Funktion als Variable

Sub euler()
Dim A As Double
A = InputBox("lower itegration limit")
Dim E As Double
E = InputBox("upper integration limit")
n = 20
s = 0
H = (E - A) / n
x = A
s = y(x) / 2
For x = A + H To E - A Step H
y (x)
s = s + y(x)
Next x
x = E
s = s + y(x) / 2
s = s * H
MsgBox s
End Sub

Function y(ByVal x As Double) As Double

y = Exp(-x * x)

Es geht nur darum, wie ich es schaffe den Wert der funktion y durch eine Zelle oder Textfeld so einzugeben, dass man es auch als Funktion nutzen kann.
Da meine bisherigen Bemühungen immer nur da gelandet sind, wo die eingegebene Formel als Text behandelt wird, und damit kann man leider nicht rechnen.

Danke im Vorraus

Gruß patrick