Dir function in Excel 2010 VBA not working

I try to go through the given directory to find the last downloaded csv file. For some reason, my Dir function will not find any file, even if the file exists. I am not completely familiar with VBA, so maybe I am missing some link to execute the Dir function, but I can not find anything on the Internet that tells me what I need. All examples and forums use Dir the same way I do, but I can't get my to work. Here is the code, please tell me if you can see what I am doing wrong:

Public Function Get_File() as string
   Dim filePath As String

   ChDir ("..")
   filePath = CurDir
   'Goes back to Documents directory to be in same directory as macro
   ChDir (filePath & "\Documents")
   filePath = filePath & "\Downloads\test.txt" 
   filePath = getLatestFile(filePath)

   Get_File = filePath
End Function

Public Function getLatestFile(pathToFile As String) As String
   Dim StrFile As String
   Dim lastMod As Variant
   Dim nextMod As Variant
   Dim lastFileName As String

   StrFile = Dir(pathToFile)
   lastFileName = StrFile
   lastMod = FileDateTime(StrFile)
   While Len(StrFile) > 0
       Debug.Print StrFile
       StrFile = Dir
       nextMod = FileDateTime(StrFile)
       If nextMod > lastMod Then
           lastFileName = StrFile
           lastMod = nextMod
       End If
   Wend

   getLatestFile = lastFileName
End Function

test.txt , filePath , , , . Dir (pathToFile). .