Проблема с массивами помогите пожалуйста понять бейсик

Dim my_tab() As TextBox
Dim head(1 To 9) As TextBox
Dim count As Integer
Dim str As Single
Private Sub CommandButton4_Click()
    Dim line As Integer
    Dim key As Integer
    
    head(1).Value = "№" ' вот тут оно мне говорит, что массив не инициализирован
    head(2).Value = "фамилия"
    head(3).Value = "имя"
    head(4).Value = "отчество"
    head(5).Value = "дата рождения"
    head(6).Value = "группа"
    head(7).Value = "специальность"
    head(8).Value = "телефон"
    head(9).Value = "степендия"
    
    For key = 1 To 9
        head(key).AutoSize = True
    Next key
    
    Do While (key)
        line = InputBox("введите количество строк>1")
    
        If line > 0 Then
            count = line * 9
            ReDim my_tab(line, 9)
            CommandButton1.Visible = True
            key = 0
        Else
            MsgBox ("не верный ввод, ожидалось число больше 1")
            key = InputBox("выйти из программы-0, продолжить - 1")
        End If
    Loop
    
End Sub

Dim my_tab() As MSForms.TextBox
Dim head(1 To 9) As MSForms.TextBox
Dim count As Integer
Dim str As Single
 
Private Sub CommandButton4_Click()
    Dim line As Integer
    Dim key As Integer
    Dim i As Integer
    For key = 1 To 9
        Set head(key) = Me.Controls.Add("Forms.TextBox.1", "MyTexTBox", Visible)
        head(key).AutoSize = True
    Next key
    
    head(1).Value = "¹"
    head(2).Value = "Ôàìèëèÿ"
    head(3).Value = "Èìÿ"
    head(4).Value = "Îò÷åñòâî"
    head(5).Value = "Äàòà Ðîæäåíèÿ"
    head(6).Value = "Ãðóïïà"
    head(7).Value = "Ñïåöèàëüíîñòü"
    head(8).Value = "Òåëåôîí"
    head(9).Value = "Ñòèïåíäèÿ"
    
    
    Do While (key)
        line = InputBox("ââåäèòå êîëè÷åñòâî ñòðîê òàáëèöû >1")
    
        If line > 0 Then
            count = line * 9
            ReDim my_tab(line, 9)
            For i = 1 To line
                For key = 0 To 8
                    Set my_tab(key) = Me.Controls.Add("Forms.TextBox.10", "MyTexTBox", Visible)
                Next key
            Next i
            CommandButton1.Visible = True
            key = 0
        Else
            MsgBox ("Íåâåðíûé âîîä, îæèäàëîñü ÷èñëî áîëüøå 1")
            key = InputBox("âûéòè èç ïðîãðàììû-0, ïðîäîëæèòü 1")
        End If
    Loop
    
End Sub