VBscript erreur dans un programme VB6

bonjour à tous!
dans un programme VB6, je voudrais écrire f(x) une fonction littérale de X dans une TextBox, et pour différentes valeurs de la variable, je voudrais calculer la valeur de f(x) qui sera utilisée dans la suite du programme
Pouvez-vous m'aider ?
voici la partie de programme qui "plante" :

Code:

---

1 2 3 4 5

Function Y(ByVal equation As String, x) As Single Dim r As New ScriptControl r.Language = "VBscript" Y = r.Eval(Replace(equation, "X", x)) End Function

---

merci

Je m'aperçoit que je n'ai pas été suffisamment précis:

Code:

---

1 2 3 4 5

Function Y(ByVal equation As String, x) As Single Dim r As New ScriptControl r.Language = "VBscript" Y = r.Eval(Replace(equation, "X", x)) End Function

---

L'erreur a lieu sur 'New' message: "utilisation incorrecte du mot clé new"
J'écris donc la fonction avec un X majuscule et je comptais l'évaluer après remplacement par un minuscule comme ceci:

Code:

---

1 2 3 4

For i% = 0 To 1000 t$ = Str$(a + (b - a) * i% / 1000) g(i%) = Y(Text1(0).Text, t$) Next

---

Bonjour,
L'erreur a lieu parce que la référence à ScriptControl n'a pas été déclarée.

Code:

---

1 2 3 4 5 6 7

Dim r As Object   Set r = CreateObject("MSScriptControl.ScriptControl") If TypeName(r) <> "Nothing" Then r.Language = "VBscript" Y = r.Eval(Replace(equation, "X", x)) End If

---

Un grand merci à DarkVader
cela fonctionne !
Par contre, trop nouveau, je n'ai pas encore trouvé comment mettre "RESOLU"

Encore une fois trop vite !
j'avais indiqué 'RESOLU', mais je m'aperçois que la discussion n'est pas tout à fait close
en effet la fonction Y = r.Eval(Replace(equation, "X", x))
est affreuse comme imprécision
j'ai testé pour cos(X) de 0 à 3.14159 et les valeurs intermédiaires trouvées

Code:

---

1 2 3 4

For i% = 0 To 1000 t$ = Str$(a + (b - a) * i% / 1000) g(i%) = Y(Text1(0).Text, t$) Next

---

g(i%) devrait me donner les valeurs de cos(X), mais les résultats sont totalement imprécis, je ne vois pas pourquoi ?
pouvez-vous encore m'aider un peu plus
merci

bien sûr que je vais trop vite !
le pb ne vient pas de la fonction Y , mais parce que je faisait apparaître la réponse dans une textbox trop courte et comme celle-ci compaorte pas mal de chiffres après la virgule, je ne voyais pas tout.
J'ai réglé le pb en faisant un arrondi sur le résultat