trier par date de création une liste de fichiers .TXT d"un répertoire

Re-boujour,
j'ai adapté une macro (merci MJ13) pour avoir dans une listbox la liste des fichier .TXT d'un répertoire

Private Sub UserForm_Initialize()
z = Dir("C:\CHEMIN\*.TXT", 1)
While z <> ""
ListBox1.AddItem z
i = i + 1
z = Dir
Wend
End Sub

Il y a-t-il un moyen que cette liste soit triée par date de création?
Merci d'avance
Eric