Kod:
Sub a()
DosyaAdları = "EGITmM (20.05.2020).XLS,EGITmM (11.05.2020).XLS,EGITmM (09.05.2020).XLS,EGITmM (13.05.2020).XLS"
DosyaAdları = Split(DosyaAdları, ",")
Buyuk = 0
For i = 0 To UBound(DosyaAdları)
If Buyuk < CDbl(CDate(Mid(DosyaAdları(i), 9, 10))) Then
dosya = DosyaAdları(i)
Buyuk = CDbl(CDate(Mid(DosyaAdları(i), 9, 10)))
End If
Next
MsgBox dosya
End Sub