eval 为何不能执行 变量

eval 为什么不能执行 变量
我想用eval 函数执行程序中定义的变量但是不能执行。

Dim evals As New ScriptControl

Private Sub Command4_Click()
evals.Language = "VBScript"
n = 5
Text6.Text = evals.Eval(Text4.Text)
End Sub

如果在Text4文本框中输入5*5执行后可以得出正确结果25.
执行的时候在Text4文本框中输入5*n可是结果并没有得出25，而是得出0.谁能帮我解决。


[解决办法]
把值“代入”未知数。

Private Sub Command4_Click()
evals.Language = "VBScript"
n = 5
Text4.Text = Replace(Text4.Text, "n", CStr(n))
Text6.Text = evals.Eval(Text4.Text)
End Sub