Dim strFunktionsgleichung As String = KryptonTextBox1.Text
        Dim Ergebnis As Integer
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            strFunktionsgleichung = KryptonTextBox1.Text.Replace("x", _
              ComboBox1.Items(i))
            Ergebnis = CInt(strFunktionsgleichung) * 1
            KryptonListBox1.Items.Add("f(" + ComboBox1.Items(i) + ") = " + _
              Ergebnis.ToString)
        Next