Converti il codice che ti avevo scritto in una funzioncina che inserirai in un modulo

codice:
Public Function recente(radice As String)
    Dim fs As FileSearch
    Dim directory As String
    Dim i As Integer
     
    directory = "C:\Users\nicola\Desktop\recenti"
    Set fs = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .FileName = radice & "*.txt"
        .LookIn = directory
        .SearchSubFolders = True
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If fs.FoundFiles.Count > 0 Then
    recente = MsgBox(fs.FoundFiles(1))
    End If
End Function
e la richiami secondo le tue esigenze

codice:
Private Sub Comando0_Click()
Call recente("a") ' file il cui nome inizia per a
Call recente("b") ' file il cui nome inizia per b
End Sub
Ovviamente la funzione è perfettibile (potresti aggiungere un parametro relativo alla ricorsività o meno della ricerca, ecc.). Il mio esempio è solo uno spunto.