Visual Basic - Error al crear matriz

Private Sub Label1_Click()

'Creo un botón cmdmiboton

    Set cmdmiboton = Controls.Add("VB.commandbutton", "Button")

       With cmdmiboton

         .Visible = True

         .Width = 3000

         .Caption = "cmdmiboton"

         .Top = 3000

         .Left = 1000

       End With

'-------------

'Intento crear una matriz de 7 botones partiendo del que he creado

'Error: Número de argumentos erróneos

      For i = 0 To 7

         Load cmdmiboton(i)

      Next i

End Sub

Private Sub cmdmiboton_Click(Index As Integer)

    MsgBox ("Soy el boton" + CStr(Index))

End Sub

Private Sub Form_Load()

      For i = 1 To 7

         Load cmdmiboton(i)

         cmdmiboton(i).Visible = True

         cmdmiboton(i).Caption = "Boton" + CStr(i)

         cmdmiboton(i).Top = cmdmiboton(i - 1).Top + 500

      Next i

End Sub

Set cmdmiboton = Controls.Add("VB.commandbutton", "Button")

       With cmdmiboton

         .Visible = True

         .Width = 1000

         .Caption = "Boton"

         .Top = 1000

         .Left = 1000

       End With

' El fallo viene después, cuando intento que sean más botones.

For i = 1 To 7

Load cmdmiboton(i)

cmdmiboton(i).Visible = True

cmdmiboton(i).Caption = "Boton" + CStr(i)

cmdmiboton(i).Top = cmdmiboton(i - 1).Top + 500

Next i