Как грамотно создать массив из текстбоксов

  Dim tbDetal() As MSForms.TextBox     
 ReDim tbDetal(4)
        tbDetal(0) = tb8
        tbDetal(1) = tb9
        tbDetal(2) = tb10
        tbDetal(3) = tb11

Dim tbDetal() As MSForms.TextBox     
 ReDim tbDetal(4)
        set tbDetal(0) = tb8
        set tbDetal(1) = tb9
        set tbDetal(2) = tb10
        set tbDetal(3) = tb11

Private Sub CommandButton1_Click()
Dim s As TextBox
Dim lbl(10) As Control
   For i = 0 To 10
    Set lbl(i) = Me.Controls.Add("Forms.Label.1")
   With lbl(i)
      .Top = 10 + 20 * i
      .Left = 5
      .Height = 20
      .Width = 40
      .Caption = i & " число"
      .ForeColor = RGB(225, 0, 0)
      .BackColor = RGB(255, 255, 225)
   End With
   Set oTextBox = Me.Controls.Add("Forms.TextBox.1")
With oTextBox
      .Top = 10 + 20 * i
      .Left = 45
      .Height = 20
      .Width = 40
      .Text = i & 1 & i
End With
Next
End Sub