получить изображения в массив в порядке изменения даты (по возрастанию)

Question

Мне нужно импортировать изображения в массив, а затем вставить эти изображения в таблицу Excel.

У меня есть код, который получает имена всех файлов в массив и вставляет их по одному. но порядок перемешан. Я использовал метод Dir ()

Do While sFile <> ""
    aFileNames(nCounter) = sFile
    sFile = Dir
    nCounter = nCounter + 1

    If nCounter > UBound(aFileNames) Then
        ReDim Preserve aFileNames(UBound(aFileNames) + 255)
    End If

Loop

Мне нужно получить массив имен файлов с измененной датой (по возрастанию). Поэтому первое изображение, которое было сохранено первым, будет вставлено первым