Kod:
Public Sub TestMe()
Dim liste As Object
Set liste = CreateObject("System.Collections.ArrayList")
Dim dizi As Variant
dizi = Split("EGITmM (20.05.2020).XLS,EGITmM (11.05.2020).XLS,EGITmM (09.05.2020).XLS,EGITmM (13.05.2020).XLS", ",")
Dim cnt As Long
For cnt = LBound(dizi) To UBound(dizi)
liste.Add CDbl(CDate(Mid(dizi(cnt), 9, 10)))
Next cnt
liste.Sort
ReDim dizi(liste.Count)
For cnt = liste.Count - 1 To 0 Step -1
liste(cnt) = liste.Item(cnt)
MsgBox "EGITmM (" & CDate(liste(cnt)) & ").XLS"
Next cnt
End Sub