Se non c'è la necessità di visualizzare i nomi dei file (e mi sembra che non ci sia), non occorre un controllo FileListBox.
Dovresti usare la funzione Dir() che restituisce ciclicamente i nomi di tutti i file presenti in una cartella:
codice:
    Dim sNomeIntero As String
    
    sNomeIntero = Dir("miacartella\*.*")
    While sNomeIntero <> vbNullString
        .......
        sNomeIntero = Dir()
    Wend
Al posto dei puntini va il codice che separa il nome dall'estensione, aggiunge il numero, ricompone l'intero nome ed effettua la rinominazione.
Meglio sarebbe se questo codice fosse isolato in una piccola funzione.