vb的小问题。高手请进

关于 我初学vb，有个小问题想请教大虾们
我编辑这样一个逻辑：让使用者在text1中输入一个算式（如y=a*x)并在text2,text3中为a,x赋值，点击command1（计算），在text4中出现结果。
我试了很多次但只能编成那种事先确定好的式子，这种让使用者自己输入式子的程序怎么也编不成。
真诚地向大虾们请教
可以只写出command1的过程事件，如果可以，我愿再送100分（说到做到）

的问题

先要到菜单：工程/引用/Microsoft Script Control 1。0前加勾/OK
你会很满意的，还会给很高的分~~~~
Private Sub Command1_Click()
Dim objScript As New ScriptControl, a As Double, x As Double, y As String
a = Text2
x = Text3
y = Text1
y = Mid(y, InStr(y, “=”) + 1)
y = Replace(LCase(y), “a”, a)
y = Replace(LCase(y), “x”, x)
objScript。
Language = “VBScript”
Text4 = objScript。Eval(y)
Set objScript = Nothing
End Sub。