How do I use VBA to import a .csv file into a worksheet?

This site teaches Excel. It doesn't offer code-writing services, not even if paid.

With that said, I don't think you need VBA immediately. Teach your employees how to open a CSV or TXT file in Excel.

By default, the File Open dialog box displays "All Excel Files". Click on the selector with this caption at the lower right and change it to "All files". Select the CSV or TXT file you wish to open and click "Open".

Quite possibly this process will lead to questions which you can ask here. Quite possibly, given your limited trust in the Excel-prowess of your employees, the answers to those questions will lead to the suggestion to deploy VBA. The point is that the suggested approach will lead to very different problems, therefore very different questions and answers and, hence, very different VBA. 

Just in case anyone in the future has a similar question, this is my VBA code that answered my query.

Sub Import_Data()
 
Dim FileToOpen As Variant
Dim ImportLocation As Range
Dim xAddress As String
 
FileToOpen = Application.GetOpenFilename(Title:="Browse for the Data File", FileFilter:="CSV Files (*.csv*),*csv*")
 
    If FileToOpen = False Then Exit Sub
    
        Set ImportLocation = Application.Range("A1")
       
        If ImportLocation Is Nothing Then Exit Sub
        
        xAddress = ImportLocation.Address
        
         With ActiveSheet.QueryTables.Add("TEXT;" & FileToOpen, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
        
 
End Sub