Dim Files As New SortedDictionary(Of DateTime, String)()
Dim BackupDir As New DirectoryInfo("c:\files")
For Each CurrentFile As FileInfo In BackupDir.GetFiles("*.txt")
    Files.Add(CurrentFile.LastAccessTime, CurrentFile.Name)
Next
Console.Write(Files.Values.Last())