Как отсортировать имена файлов?

Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Set fld = fso.GetFolder(Path)
 
i = 1
For Each fil In fld.Files
 
rows = fil.Name
 
 
'   Form1.AutoRedraw = True
'   Form1.Print rows + Chr(13) + Chr(10)
 
 
   
  QuickSortLogical rows, LBound(rows), UBound(rows)
 
 
                 Form1.AutoRedraw = True
                 Form1.Print Join(rows, Chr(13) + Chr(10))
    
i = i + 1
 
' End If
 
Next
 
End If
 
 
Set fil = Nothing
Set fld = Nothing
Set fso = Nothing

Private Sub Form_Load()
    Dim Path As String
    Dim fso As New FileSystemObject
    Dim fld As Folder
    Dim fil As File
    Dim Rows() As String
    Dim i As Integer
    Dim fileCount As Integer
    
    Path = "."  ' Текущая директория
    
    Set fld = fso.GetFolder(Path)
    
    ' Определяем количество файлов
    fileCount = fld.Files.Count
    
    If fileCount = 0 Then
        MsgBox "В папке нет файлов!", vbInformation
        Exit Sub
    End If
    
    ' Инициализируем массив нужного размера
    ReDim Rows(0 To fileCount - 1)
    
    ' Заполняем массив именами файлов
    i = 0
    For Each fil In fld.Files
        Rows(i) = fil.Name
        i = i + 1
    Next fil
    
    ' Сортируем массив (предполагается, что процедура QuickSort объявлена)
    QuickSort Rows, LBound(Rows), UBound(Rows)
    
    ' Выводим результат
    MsgBox Join(Rows, vbCrLf)  ' Преобразуем массив в строку
    
    ' Очистка объектов
    Set fil = Nothing
    Set fld = Nothing
    Set fso = Nothing
End Sub
 
 
Sub QuickSort(arr() As String, ByVal low As Long, ByVal high As Long)
    Dim pivot As String
    Dim i As Long, j As Long
    Dim temp As String
    
    If low < high Then
        pivot = arr((low + high) \ 2)
        i = low
        j = high
        
        Do While i <= j
            Do While StrComp(arr(i), pivot, vbTextCompare) < 0
                i = i + 1
            Loop
            Do While StrComp(arr(j), pivot, vbTextCompare) > 0
                j = j - 1
            Loop
            If i <= j Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
                i = i + 1
                j = j - 1
            End If
        Loop
        
        If low < j Then QuickSort arr, low, j
        If i < high Then QuickSort arr, i, high
    End If
End Sub

Dim f as Scripting.File