新手关于动态数组的不断填充问题，懂的稍微解释一下

Private Sub Command1_Click()
Dim sz() As Integer              '定义数组，位置错，应该放在 所有过程之前。
x = UBound(sz, 1)                '取数组下标。错。不需要第二个参数。
sz(x) = Text1.Text               '给值
x = x + 1                        '自加1
ReDim Preserve sz(x)             '重定义大小，保留原数据。位置错，与上面一行应该放在 本过程的最开头。
End Sub

Private Sub Form_Load()
x = 0                      '置数据个数为 0
End Sub

-------------------------
修正后的代码如下。未经测试。
dim x as Integer                '定义为全局变量
Dim sz() As Integer

Private Sub Form_Load()
x=0
End Sub

Private Sub Command1_Click()
x=x+1
ReDim Preserve sz(x)  
sz(x) = Text1.Text
End Sub

我正在研究我们公司的一个程序软件，里面的内容太复杂了，问题很多，我百度过，太难找到对应的问题，所以希望版主加个方便联系的QQ或者微博 MSN之类的，我有问题的时候可以求教。谢谢了