Nell'editor vba aggiungi il riferimento a Microsoft Office X Object Library. Poi prova ad assegnare a un pulsante questa macro

codice:
Option Compare Database

Private Sub Comando0_Click()
    Dim fs As FileSearch
    Dim directory As String
    Dim i As Integer
     
    directory = "c:\tuo_path\tua_cartella"
    Set fs = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .Filename = "*.txt"
        .LookIn = directory
        .SearchSubFolders = True
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If fs.FoundFiles.Count > 0 Then MsgBox fs.FoundFiles(1)

End Sub
e vedi se ti restituisce il file più recente.