VBA neueste Datei in Ordner finden

Sub Find_Neu_Filedate()
' von Rainer (Ramses)
'Liefert jüngste Datei in einem Verzeichnis
Dim I As Long
Dim strDateiname As String, Path As String, DEW As String
Dim StoreDate As Date, StoreName As String
'Variablen setzen
'Pfad
Path = "C:\Benutzerdaten\patrick.kupitz\Desktop\test"
'Dateierweiterung
DEW = "*.xls"
I = 0
strDateiname = Dir(Path & "\" & DEW)
StoreDate = FileDateTime(strDateiname)
Do While (strDateiname  "")
I = I + 1
If Format(FileDateTime(strDateiname), "dd.mm.yyyy") > StoreDate Then
StoreDate = Format(FileDateTime(strDateiname), "dd.mm.yyyy")
StoreName = Dir()
Debug.Print StoreDate
Debug.Print StoreName
End If
strDateiname = Dir()
Loop
If I = 0 Then
MsgBox "Keine Dateien dieses Typs " & DEW & " gefunden"
Exit Sub
End If
MsgBox ("Die jüngste Datei ist: " & StoreName & ", erstellt am " & StoreDate)
Exit Sub
Error_SuchVZ:
MsgBox "Das Verzeichnis: " & Path & " konnte nicht gefunden werden! "
End Sub