Una Matrice di controlli e/o di oggetti non presenta elementi vuoti
dopo la rimozione di un elemento. E non si comporta come una normale
Collection.
Un escamotage è quello che ti posto come esempio.
Il secondo ciclo ti permette di ricavarti gli indici presenti nella
matrice, dall'esame dei risultati si può risalire all'indice mancante.

codice:
Public Sub Testa()
Dim nIdx As Integer
Dim oObj As Object

On Error Resume Next

For nIdx = 0 To Text1.Count - 1
    Set oObj = Text1(nIdx)
    If oObj.Name = "" Then
        Debug.Print "Vuoto " & nIdx
    Else
        Debug.Print Text1(nIdx).Index
    End If
Next nIdx

Debug.Print
Debug.Print "-------------------------------------------------------"
Debug.Print

For Each oObj In Text1
    Debug.Print oObj.Index
Next oObj

End Sub

Ciao,