Sub get_first_created()
Dim myPath$, mask$, f$, i%, t As Date
Dim myFolder As Object, myFile As Object
Dim S As Object
Set S = CreateObject("Shell.Application")
myPath = "C:\Users\Вася\Downloads\" ' директория для поиска
mask = "*ТОРГ-12*.xlsx" ' маска поиска с * и ?
With CreateObject("Scripting.FileSystemObject")
    Set myFolder = .GetFolder(myPath)
    t = Now ' если ищем самый поздний - убрать эту строку
    For Each myFile In myFolder.Files
        If myFile.Name Like mask Then
            If CDate(myFile.DateCreated) < t Then ' если ищем самый ранний, то  <, самый поздний  - >
                t = CDate(myFile.DateCreated)
                f = myFile.Name
                p = myFile.Path
            End If
        End If
    Next
On Error Resume Next
S.Open (p)
End With
End Sub