FindFirstFile не корректно определяет имена файлов с диакритическими знаками

    Dim bstFileName As String
    Dim lngFileCount As Long
    Dim lngAPIReturn As Long
    Dim bstPath As String
    Dim bstCinteria As String
    Dim abstFileNames() As String
    Dim lngHSearch As Long
    Dim udtWFD As WIN32_FIND_DATA
   
    bstCinteria = iCinteria
    bstPath = iPath
    
    lngHSearch = INVALID_HANDLE_VALUE
    lngHSearch = FindFirstFile(bstPath & iCinteria, udtWFD)
    lngFileCount = -1&
       
    If lngHSearch <> INVALID_HANDLE_VALUE Then
        Do
            bstFileName = Left(udtWFD.cFileName, VBA.InStr(1, udtWFD.cFileName, Chr(0)) - 1) ', vbNullString)
            Stop
            If (bstFileName <> ".") And (bstFileName <> "..") Then
                lngFileCount = lngFileCount + 1
                ReDim Preserve abstFileNames(0& To lngFileCount) As String
                abstFileNames(lngFileCount) = bstFileName
            End If
            lngAPIReturn = FindNextFile(lngHSearch, udtWFD)
        Loop Until lngAPIReturn = 0&
        FindClose lngHSearch
    End If
 
    oFileNames = abstFileNames
    oMaxIdx = lngFileCount

Option Explicit
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal uType As Long) As Long
 
Private Sub Command1_Click()
    Dim str As String
    
    str = ChrB(&HF7) & ChrB(&H62) ' Это китайский символ из совокупности двух байтов F7 и 62 в HEX-формате
    
    MessageBox hwnd, StrPtr(str), StrPtr(App.Title), 0 ' MessageBox с поддержкой уникода
    
    ' Сделать тоже самое можно через ChrW (через просто Chr это сделать невозможно!!!)
    str = ChrW(&H62F7) ' В данном примере байты меняются местами
    
    MessageBox hwnd, StrPtr(str), StrPtr(App.Title), 0 ' MessageBox с поддержкой уникода
    
    ' Получить ASC-код простой функций Asc НЕВОЗМОЖНО для китайских символов!!!
    MsgBox Asc(str) ' Будет 63 знак вопроса
    
    ' А вот так можно
    MsgBox AscW(str)
    
    ' И вот так можно в HEX-формате
    MsgBox Hex(AscW(str))
    
    ' Но, к сожалению функция AscW получает номер символа с поменяными местами байтами,
    ' и для правильного чтения нужно менять байты местами либо читать с помощью AscB и MidB лучше всего
    MsgBox Hex(AscB(MidB(str, 1, 1))) & Hex(AscB(MidB(str, 2, 1)))
End Sub

Public Function IsUnicodeString(str As String) As Boolean
    Dim i As Long
    
    For i = 1 To Len(str) Step 2
        If AscB(MidB(str, i + 1, 1)) > 0 Then
            IsUnicodeString = True
        End If
    Next
End Function