Private Sub darstellen2_Click()
Dim SC As Object
Set SC = CreateObject("ScriptControl")
SC.Language = "VBScript"
'..... Restlicher Code
For x = x2 To x1 Step 0.01
    SC.AddCode "x=" + Replace(CStr(x), ",", ".")
    y = SC.Eval(funktiontxt.Text)
    DrawWidth = 2
    pic1.PSet (x, y), &HFF&
Next x
'..... Wieder der restliche Code
End Sub