Private Sub Command12_Click()
Dim sFile, KolVoFiles%
Dim fso As Object
Dim Folder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Me.sPath)
KolVoFiles = Nz(Folder.Files.Count, 1)
Debug.Print "KolVoFiles=" & KolVoFiles
 
sFile = Dir(Me.sPath & "*.xlsx")
Debug.Print sFile

Do While Len(sFile) > 0
    DoEvents
    'Debug.Print sFile
    
    ' Если тут  выполнять какие-то операции по сохранению файлов, например xlsx в csv даже в другой директории,
    ' то sFile обнуляется и не переходит к следующему файлу для обработки.
    ' Если с файлами ничего не делать, а просто считывать, то всё работает прекрасно.
    sFile = Dir()
Loop

End Sub