using FileSystemObject to get subfolders

[Tnen]

Hi
I'm using this code to get subfolders but i got them arranged by modify time
How can i make them arrange by name
"Changing folder sort type form windows explorer makes no change"

Dim FS As New FileSystemObject
    Dim FSfolder As Folder
    Dim subfolder As Folder
    Dim i As Integer
    
    Set FSfolder = FS.GetFolder(progpath + "data\")
    
    ReDim installed(FSfolder.SubFolders.Count - 1)
    
    i = 0
    For Each subfolder In FSfolder.SubFolders
        DoEvents
        installed(i) = subfolder.Name
        i = i + 1
    Next subfolder
    Set FSfolder = Nothing