German EVAL bringt immer 0

Sub btncalc_Click
    Dim e As Evaluator  :  e.Initialize
    Dim l, b, h, hr, s As Double
    Dim e1, e2 As Double

    l  = txtl.Text         'z.B. 600
    b  = txtb.Text       'z.B. 400
    h  = txth.Text       'z.B. 400
    hr = txthr.Text    'z.B. 50
    s  = txts.Text        'z.B. 7

    'Diese Version zum Testen mit der ExpressionEvaluator Library
    e1 = e.Evaluate(Formel_l)
    e2 = e.Evaluate(Formel_b)

    'Diese Version zum Testen mit dem ExpressionsEvaluator Modul
    'e1 = evaluate.MATHTEXT("Formel_l")
    'e2 = evaluate.MATHTEXT("Formel_b")

    lblergebnis.text = "Zuschnittmaß = " & e1 & " x " & e2
end sub

e.SetGlobal("l",txtl.Text)
e.SetGlobal("b",txtb.Text)
e.SetGlobal("h",txth.Text)
e.SetGlobal("hr",txthr.Text)
e.SetGlobal("s",txts.Text)

'Anschliessend kann mit e.EVALUATE gerechnet werden
e1 = e.Evaluate(Formel_l)
e2 = e.Evaluate(Formel_b)