Повторное открытие DIR

[kdvstat2]

В программе я дважды открываю список файлов в папке через DIR. Первый раз, когда корректирую имена по шаблону, чтоб они отсортировались.
Второй раз уже, когда уже их открываю последовательно. Но во вотором случае имена файлов остаются в таком же порядке как и в первом, хотя они уже отсортированые.

Код: Выделить всё

    strPath = UserForm1.TextBox1.Text & "\"
    strFileName = Dir(strPath & "*.xls")
    Do While strFileName <> ""
        strNewFileName = strFileName
        ii = Val(Mid(strFileName, 8))
        .....
        strNewFileName = strNewFileName & Mid(strFileName, ff)
       
        Name strPath & strFileName As strPath & strNewFileName
        strFileName = Dir
    Loop

теперь же если заново перечитать папку, то порядок файлов не миняется

Код: Выделить всё

  strPath = UserForm1.TextBox1.Text & "\"
    strFileName = Dir(strPath & "*.xls")
    Do While strFileName <> ""
        msg = msg & strFileName & vbCrLf
        strFileName = Dir
    Loop
    MsgBox msg

Как это можно обойти?

[tyomitch]

Читай имена в массив, и сортируй массив.