With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Show

    Dim Row As Integer: Row = 1
    path = .SelectedItems(1)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path, 1)
    
    Do Until objFile.AtEndOfStream

        strLine = objFile.ReadLine
        Cells(Row, 1).Value = strLine
        Row = Row + 1
        
    Loop
    objFile.Close
End With