Import csv file in macro

Hallo

I am trying to make a import makro to import many csv files in a sheet.
Something like Importing CSV and manipulating data with macro
But I like to make a function that I can call ones for every import of a csv file.
The function shut import every file in a new sheet with the name of the file.

Like this
CSVImport(strFilPath)

So every time I call the CSVImport function It make a new sheet with the name of the file and import the file as csv import

Thanks.