Private Const MAX_PATH = 256
 
Private Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow AS Long
   dwReserved0 AS Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type
 
Private Declare Function FindFirstFile Lib "kernel32" Alias _
   "FindFirstFileW" ( _
   Byval lpFileName As String, _
   lpFindFileData AS WIN32_FIND_DATA) As Long
 
Private Sub Form_Load()
   Dim w32File As WIN32_FIND_DATA
 
   FindFirstFile StrConv("C:\Test.txt", vbUnicode), w32File
 
   MsgBox StrConv(w32File.cFileName, vbFromUniCode)
End Sub