Заполнение массива из формы

[ofenod]

Матрицу M(5,5) нужно заполнить через форму вводя данные в соответствующие поля. У меня на форме 25 полей TextBox и кнопка.

Private Sub CommandButton1_Click()
Dim M(1 To 5, 1 To 5) As Integer
M(1, 1) = UserForm1.TextBox1.Text
M(1, 2) = UserForm1.TextBox2.Text
M(1, 3) = UserForm1.TextBox3.Text
....
M(5, 5) = UserForm1.TextBox25.Text
End Sub

Как сделать так, чтобы не вводить все 25 адресов?