Dim sc As New ScriptControl
   sc.Language = "VBScript"
 
   'Beispiel für eine Formel
   Dim formula As String = "(L+2)/50"
 
   'Am besten direkt im String den Platzhalter 
   'durch den benötigten Zahlen-Wert ersetzen
   formula = formula.Replace("L"c, "150.5")
 
   'Formel auswerten 
   Dim result as double = sc.Eval(formula)