Dim I As Long, S() As String

ReDim S(N)
For I = 1 To N 　　　　　　　　　　　　　'这里的N由你窗体上有多少个文本框要写入数组的个数决定
S(I) = Me.Controls("TextBox" & I).Text '这里的"TextBox"由你的控件名决定，默认的名称为TextBox1、TextBox2...TextBoxN，这里使用的是默认名称。
Next I

[此贴子已经被作者于2007-8-8 12:57:22编辑过]

问题解决了

那你就把ME改成你自己的窗体名啊。