Dim arrTxt As TextBox()
*********************
For i = 0 To 5
   ReDim Preserve arrTxt(i)
   arrTxt(i) = New TextBox()
   With arrTxt(i)
      .Text = "Text" & i.ToString()
      .Top = i * 20
   End With
   Me.Controls.Add(arrTxt(i))
Next i