Rinominare n-esimo carattere in una lista di file in una directory

[zorro77]

1) la funzione Dir$ per vedere quali file ci sono in una cartella.

sto scrivendo in questo modo

Dim NomeFile As String
Dim NuovoFile As String  
NomeFile = Dir$(TempPath & "\*.*")
          
Do
    If NomeFile <> "" Then
        NuovoFile = NomeFile
        Mid$(NuovoFile, 7, 1) = valcmbSession
        Call getRename(NomeFile, NuovoFile)         
    Else
         Exit Do
    End If
    Dir$
 Loop

però mi effettua un ciclo infinito e mi da errore, perchè rimane sempre sul primo file, infatti in NomeFile c'è sempre lo stesso