Open

Allows the user to open a file

.InitialFileName = "C:\temp\"
.InitialView = msoFileDialogView.msoFileDialogViewLargeIcons

Dim objFileDialog As Office.FileDialog 
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogOpen) 
    
    With objFileDialog 
        .AllowMultiSelect = True 
        .ButtonName = "Open" 
        .Title = "Open" 
        If (.Show > 0) Then 
        End If 

Dim oFileDialogSelectedItems 
      Set oFileDialogSelectedItems = .SelectedItems 

    End With 

FileDialogSelectedItems - A collection of string values that correspond to the folder paths of the files or folders that have been selected.