Sub RenameFile(sPathName As String, sFolderName As String)
Dim sNextFile As String
Dim sOldFile As String
Dim sNewName As String
Dim i As Integer
sNextFile = Dir$(sPathName + "\*.*")
i =  0 
While sNextFile <> ""
   MsgBox sNextFile
   i = i +  1 
   sOldFile = sPathName + "\" + sNextFile
   sNewName = sPathName + "\" + sFolderName + "-00" + CStr(i) + ".txt"
   Name sOldFile As sNewName
   sNextFile = Dir$
Wend
 MsgBox "Все"
End Sub

' main sub

Sub GetFolder(M As Integer)
Dim i As Integer
Dim Path As String
i =  1 
 For i =  1  To M
  Path = "C:\" + "00" + CStr(i)
  If Dir$(Path + "\*.*") <> "" Then
    RenameFile Path, "00" + CStr(i)
  End If
 Next i
End Sub