Проверка наличия папки с именем с русскими буквами, взятым из таблицы Excel

Option Explicit                         ' Заставляем объявлять все переменные
Dim objExcel, objWorkbook
Dim MyDomen, MyExcelFile, MyDrive
Dim WshShell, strCurDir
Dim YStroka, XStolb1, XStolb2, XStolb3, XStolb4
Dim AppSheet, XStrokaDirLevel1, XStrokaDirLevel2, XStrokaDirLevel3, XStrokaDirLevel4
Dim XStrokaDirLevel1Result, XStrokaDirLevel2Result, XStrokaDirLevel3Result, XStrokaDirLevel4Result, DirResult
Dim XHorGroupLine, YHorGroupStolb
Dim ListEndDir
Dim CountDir
Dim FSO, FoldExistMsg
 
' --- Наши переменные
MyDomen = "XXX"                 ' Наш домен
MyExcelFile = "my_file.xls"         ' Имя файла EXCEL с описанием прав
MyDrive = "D:\"                 ' Диск, на котором находятся папки
YStroka = 22                    ' Строка, с которой начинается описание папок
XStolb1 = 3                 ' Столбец для имени папки 1 уровня 
XStolb2 = 4                 ' Столбец для имени папки 2 уровня
XStolb3 = 5                 ' Столбец для имени папки 3 уровня
XStolb4 = 6                 ' Столбец для имени папки 4 уровня
XHorGroupLine = 8               ' Строка, на которой размещены имена груп 
YHorGroupStolb = 7              ' Столбец с названием группы
 
' --- Узнаем из какой папки запустили скрипт
Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
 
' --- Открываем файл EXCEL из папки, из которой был запущен скрипт
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strCurDir & "\" & MyExcelFile)
objExcel.Visible = True
 
' --- Для файловой системы
Set FSO = CreateObject("Scripting.FileSystemObject")
 
ListEndDir = 0                              ' 0 если хоть в одном уровне папок есть значение
CountDir = 0
 
 do while CountDir < 10
    DirResult = MyDrive                         ' Формируем заново конечный путь к папке
                            
    XStrokaDirLevel1 = objExcel.Cells(YStroka + CountDir,XStolb1).value ' Узнаем название папки 1 уровня
    XStrokaDirLevel2 = objExcel.Cells(YStroka + CountDir,XStolb1 + 1).value ' Узнаем название папки 2 уровня
    XStrokaDirLevel3 = objExcel.Cells(YStroka + CountDir,XStolb1 + 2).value ' Узнаем название папки 3 уровня
    XStrokaDirLevel4 = objExcel.Cells(YStroka + CountDir,XStolb1 + 3).value ' Узнаем название папки 4 уровня
    CountDir = CountDir + 1                                 ' счетчик проходов
    if  XStrokaDirLevel1 <> "" and XStrokaDirLevel2 = "" then               ' Папка 1 уровня
        DirResult = DirResult + XStrokaDirLevel1                    ' Формируем путь к папке 1 уровня
        XStrokaDirLevel1Result = XStrokaDirLevel1                   ' Запоминаем название папки 1 уровня
    End if 
    if  XStrokaDirLevel1 <> "" and XStrokaDirLevel2 <> "" then              ' Папка 2 уровня
        DirResult = DirResult + XStrokaDirLevel1Result + "\" + XStrokaDirLevel2     ' Формируем путь к папке 2 уровня
        XStrokaDirLevel2Result = XStrokaDirLevel2                   ' Запоминаем название папки 2 уровня
    End if
    if  XStrokaDirLevel1 = "" and XStrokaDirLevel2 = ""  and XStrokaDirLevel3 <> "" then    ' Папка 3 уровня
        DirResult = DirResult + XStrokaDirLevel1Result + "\" + XStrokaDirLevel2Result + "\" + XStrokaDirLevel3      ' Формируем путь к папке 3 уровня
        XStrokaDirLevel3Result = XStrokaDirLevel3                                   ' Запоминаем название папки 3 уровня
    End if
 
    ' Сообщение о существовании папки
    if FSO.FolderExists(DirResult) then
        FoldExistMsg = "Папка Существует"
    else
        FoldExistMsg = "Папка НЕ Существует"
    End if
    'Wscript.echo DirResult
    MsgBox("Проход: " & CountDir & chr(10) & "Путь к папке: " & DirResult & chr(10) & chr(10) & FoldExistMsg )
    ListEndDir = 1
 loop