Import Bulk CSV No Going Through The Ascending

I'm using this code to import bulk *.csv files


Sub ImportCSVFiles()
Dim sh As Worksheet, sPath As String, sName As String
Dim R As Range, fName As String
Dim sh1 As Worksheet

But I've noticed that on import run, the macro mixing the ascending order of the files.
An example:
Inside my_folder I have 3 csv files:
advertise.csv
adwords.csv
adwords keyword tool.csv

When the macro runs, it takes advertise.csv as the 1st. (Thats Ok) then adwords keyword tool.csv data
before thaking adwords.csv

(I have over 100 files to import, so you can imagine the mess I'm facing..)