Найти нужный TextBox по индексу и добавить текст - VB

Формулировка задачи:

Здравствуйте! Помогите пожалуйста, мне нужно добавить текст в ТБоксы по их индексу, т.е., найти на форме все ТекстБоксы с Index=3 и пронумеровать их. Пытаюсь сделать так, но ничего не выходит. Заранее спасибо.

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
    Load Text1(i)
    Load Text2(i)
    Load Text3(i)
    Text1(i).Top = Text1(i - 1).Top + Text1(0).Height
    Text2(i).Top = Text2(i - 1).Top + Text2(0).Height
    Text3(i).Top = Text3(i - 1).Top + Text3(0).Height
    Text1(i).Visible = True
    Text2(i).Visible = True
    Text3(i).Visible = True
    Next
    Call AddText
End Sub
 
Sub AddText()
Dim tb As Control
Dim t As Integer
t = 1
For Each tb In Me.Controls
If tb.Name = "Text" & t Then
If tb.Index = 3 Then tb.Text = t
t = t + 1
End If
Next
End Sub

Решение задачи: «Найти нужный TextBox по индексу и добавить текст»

textual
                            Листинг программы 
                        

                            Sub AddText()
Dim i As Integer
For i = 1 To 3
  Controls("Text" & i)(0) = i
Next i
End Sub
                        