窗体上画7个textbox(index0-6)还有一个button,要求数据只能按顺序输入，并且所有数据输入完毕后button才可以点击！

Question

窗体上画7个textbox(index0-6)还有一个button,要求数据只能按顺序输入，也就是说最开始有且只有index0可以被输入，index0被输入后有且只有index1可以被输入，以此类推，当最后一个被填入数据之后，button才可以被点击
下面的代码不太彻底：运用这段代码，最开始的时候所有textbook都可以被输入。
Private Sub Text1_Change(Index As Integer)
    Dim i As Long
    If Len(Text1(Index)) = 0 Then
        For i = Index + 1 To Text1.UBound
            Text1(i).Enabled = False
        Next
    Else
        If Index < Text1.UBound Then
            Text1(Index + 1).Enabled = True
            For i = Index + 2 To Text1.UBound
                Text1(i).Enabled = False
            Next
            
        End If
    End If
End Sub

Answer 1

Private Sub Form_Load()
Dim i As Integer
    For i = 1 To 6
        Text1(i).Enabled = False
    Next i
End Sub
加上上面