Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)
Dialog Type VBA Constant (FileDialogType)
Open msoFileDialogOpen
Save msoFileDialogSaveAs
File Picker msoFileDialogFilePicker
Folder Picker msoFileDialogFolderPicker
Sub openDlg()
Dim fc As FileDialogFilters
Dim ff As FileDialogFilter
Set fc = Application.FileDialog(msoFileDialogOpen).Filters
Set ff = fc.Item(1)
MsgBox ff.Description & ff.Extensions 'Displays "AllFiles" and *.*
End Sub