Public Function nEvaluate_String(ByVal cFormel As String) As Decimal
        Dim SC As New MSScriptControl.ScriptControl
 
 
        SC.Language = "VBSCRIPT"
 
        Try
            Dim Result As Double = Convert.ToDouble(SC.Eval(cFormel))
            'SHOW THAT IT WAS VALID
            Return Result
        Catch ex As Exception
            'SHOW THAT IT WAS INVALID
            MessageBox.Show("Fehler in Formel- keine Berechnung möglich!")
        End Try
    End Function