Dim Y1 As string
Y1 = e.form.Controls("TextBox1").TEXT
将上面这段代码改成:
Vars("Y1") = e.form.Controls("TextBox1").Value