Grazie per la risposta.
Il doppio ciclo è il risultato di infiniti esperimenti, dove le ho provate tutte (in base alle mie conoscenze ovviamente). L'idea iniziale era di usare il valore della variabile "ind" come valore finale del ciclo (in pratica "inizia ad assegnare i nomi dal numero scritto nella TextBox fino a quello memorizzato nella variabile incrementandolo di 1. Ovviamente mi sono accorto che è una procedura sbagliata).
Mi blocco all'ultimo punto: non riesco a far "capire" a VB che una volta rinominato il primo file deve passare al successivo incrementando di 1 il valore nella casella di testo. Far accettare solo numeri dalla TextBox non è un problema.
Per estrapolare nome e estensione uso questo codice:

codice:
Private Sub File1_Click()
Dim Estensione As Long
Dim Nome As Long

Estensione = InStrRev(File1.FileName, ".")
Nome = InStr(File1.FileName, ".")
Text1.Text = Mid$(File1.FileName, Estensione)
Text2.Text = Left$(File1.FileName, Estensione)
End Sub