Boa tarde.

Realizei um código para buscar arquivos de uma pasta através do comando Dir.
Porém ele abre os arquivos de uma maneira aleatoria, ex: tenho uma sequencia de arquivos 1,2,3...15, ele vai abrir os arquivos, porém ele abre o 1, depois o 13, depois o 2 ou seja, um criterio aleatorio.

Teria como fazer como ele abrir os arquivos por ordem de nome?

Código abaixo:

  Dim givenlocation, oldfilename, newfilename As Variant
    Dim lista(1000) As Variant
    Dim StrFile2 As String
    
    inputDirectoryToScanForFile = "C:Users" & Environ("USERNAME") & "DesktopMONITORES"
    filenameCriteria = ".xls"
    
    StrFile2 = Dir(inputDirectoryToScanForFile & "*" & filenameCriteria)
    
    Do While Len(StrFile2) > 0
        
        
        LIMPAR2 1
        LoopThroughFiles "C:users" & Environ("USERNAME") & "DesktopMONITORES" & StrFile2
        rodar_script 1, 1
        givenlocation = "C:users" & Environ("USERNAME") & "DesktopMONITORES"
        oldfilename = StrFile2
        newfilename = n_pedido & " - " & o.codcli & ".xls"
        Name givenlocation & oldfilename As givenlocation & newfilename
        Calculate
        StrFile2 = Dir
        If StrFile2 = vbNullString Then
        
            Exit Function
        End If
    Loop