Обращение к разным TextBox по их имени

Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' Здесь мы будем записывать в Excel
        Dim _Excel As New Application 'Приложение Excel
        Dim Книга As Workbook = _Excel.Workbooks.Open("D:\test.xlsx") 'Открываем книгу
        Dim Лист As Worksheet = CType(Книга.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) 'Первый лист книги
        Try
            For i = 1 To 5
                For j = 1 To 5
                    Лист.Cells(i, j).Value = TextBox1.Text 'запись в ячейку
                Next j
            Next i
            _Excel.Workbooks(1).Close(True) ' сохранение и закрытие
            _Excel.Quit() ' Выход
        Catch ex As Exception ' обработка ошибок
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "В программе произошла ошибка") ' описание ошибки
            _Excel.Workbooks(1).Close(False) ' в случаи ошибки экземпляр Excel повиснит в памяти, а так мы закроем процесс не сохраняя
            _Excel.Quit()
        End Try
    End Sub

For i = 1 To 5
    For j = 1 To 5
        Лист.Cells(i, j).Value = Me.Controls.Item("TextBox" & i.ToString).Text
    Next j
Next i

Dim t As Integer
For i = 1 To 5
    For j = 1 To 5
        t += 1
        Лист.Cells(i, j).Value = Me.Controls.Item("TextBox" & t.ToString).Text
    Next j
Next i