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

Private Declare Function CreateFileW Lib "Kernel32" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32" (ByVal hObject As Long) As Long
 
Private Const GENERIC_READ As Long = &H80000000
Private Const GENERIC_WRITE As Long = &H40000000
Private Const FILE_SHARE_WRITE As Long = &H2
Private Const FILE_SHARE_READ As Long = &H1
Private Const CREATE_NEW As Long = 1
Private Const CREATE_ALWAYS As Long = 2
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80
Private Const FILE_FLAG_OVERLAPPED As Long = &H40000000
Private Const OPEN_EXISTING As Long = 3
Private Const INVALID_FILE_HANDLE = -1 '&HFFFFFFFF
 
Sub testCreateFl()
    Dim hNewFile&, sTemp$
'    sTemp = "\\?\D:\test\newFile3.txt"
    sTemp = "\\?\D:\test\" & String(270&, "l") & ".txt"
    hNewFile = CreateFileW(StrPtr(sTemp), GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, CREATE_NEW, FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_OVERLAPPED, 0)
    CloseHandle hNewFile
End Sub

If (all_cnt mod 1000) = 0 Then

Declare Function GetInputState Lib "user32" _
Alias "GetInputState" () As Long 
 
For c = 1 To 100000
temp = 2 * 2 * 2
If GetInputState() Then DoEvents ' здесь 312 мс.
DoEvents ' а здесь время выполнения цикла 6543 мс. !!!
Next c

Private Declare PtrSafe Sub GetLastInputInfo Lib "user32" (ByRef plii As LASTINPUTINFO)
Private Type LASTINPUTINFO
    cbSize As Long
    dwTime As Long
End Type
 
Sub sfsffsdfd()
   Dim t!, c&, lii As LASTINPUTINFO, tm&
   
   t = Timer
   For c = 1 To 300000000
        
        'If GetInputState() Then DoEvents
        GetLastInputInfo lii
        If tm <> lii.dwTime Then
            tm = lii.dwTime
            DoEvents
        End If
   Next c
   debug.print Timer - t
End Sub

lii.cbSize = Len(lii)