FindFirstFile, WIN32_FIND_DATA, FindNextFile

Hi,
I am visual c++ programmer this first time, I am coding in visual basic. I have following piece of code, I am trying get the file names in specific directory but I am getting junk of string which contains file name somewhere !!.  Please let me  what is the problem with my code?

I am programming on o/s window 2000

Thanks,
Arora


Private Const MAX_PATH = 256
Private Type FileTime
     dwLowDateTime As Integer      'low order 32-bit of file time
     dwHighDateTime As Integer     'high order 32-bit of file time
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 APIFindFirstFile _
Lib "kernel32" _
Alias "FindFirstFileA" _
(ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function APIFindNextFile _
Lib "kernel32" _
Alias "FindNextFileA" _
(ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long



Public Function FileSearch(ByVal sSource As String, ByVal sFileType As String)
   
   Dim FindFileData As WIN32_FIND_DATA
   Dim hFile As Long
   Dim fCount As Long
   Dim FilesCountAll As Integer
   
 
   hFile = APIFindFirstFile("c:\Test\*.txt", FindFileData)
   
   If hFile <> INVALID_HANDLE_VALUE Then
       Do
       MsgBox FindFileData.cFileName
         FilesCountAll = FilesCountAll + 1
       Loop Until APIFindNextFile(hFile, FindFileData) = 0
   End If
   
      APIFindClose hFile
   
 
End Function