Макрос не видит кириллическое название файла - VBA

Формулировка задачи:

Здравствуйте! Возникла проблема: нижеуказанный макрос не способен обрабатывать файлы с кириллическими символами в названии, тогда как с латиницей срабатывает на ура. Моих знаний не хватило на то, чтобы корректно его модифицировать, поэтому обращаюсь к вам за помощью. Сам макрос предназначен для того, чтобы вносить нужное изменение в группу файлов последовательно по очереди.

Sub MM()
 
Const startFolder As String = "C:\Users\User\Desktop\Test\"
Dim file As Variant, wb As Excel.Workbook
 
For Each file In Filter(Split(CreateObject("WScript.Shell").Exec("CMD /C DIR """ & startFolder & "*.xlsx*"" /S /B /A:-D").StdOut.ReadAll, vbCrLf), ".")
    Set wb = Workbooks.Open(file)
    '// Здесь указываю какое изменение мне необходимо внести в файл
    Range("B21").Select
    ActiveCell.FormulaR1C1 = "Вношу изменение"
    wb.Close SaveChanges:=True
    Set wb = Nothing
Next
 
End Sub

Буду очень благодарен за любую помощь.

Решение задачи: «Макрос не видит кириллическое название файла»

textual
                            Листинг программы 
                        

                            Sub MM()
   Const startFolder As String = "C:\Users\User\Desktop\Test\"
   Dim file As Variant, wb As Excel.Workbook, k As Integer
   For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(startFolder).Files
      If file Like "*.xlsx" Then
          Set wb = Workbooks.Open(file)
          '// Здесь указываю какое изменение мне необходимо внести в файл
           Range("B21").Select
           ActiveCell.FormulaR1C1 = "Вношу изменение"
           wb.Close SaveChanges:=True
           Set wb = Nothing
           k = k + 1
        End If
    Next
    MsgBox "Файлов: " & k
End Sub
                        