Private Sub ВыводДиалоговогоОкнаОткрыть()  
 
On Error GoTo ОбработкаОшибки 'Если возникнет ошибка, т.е нажата клавиша Cancel с пустым полем имён файлов, отправиться к _  
обработчику ошибки - ОбработкаОшибки.  
окнДиалоговоеОкноОткрыть.CancelError = True 'Обеспечиваем генерацию ощибки.  
окнДиалоговоеОкноОткрыть.Filename = "" ' Изначально место для внесения имён файлов пустое.  
окнДиалоговоеОкноОткрыть.Filter = гстрТипФайла 'Присваиваем свойству Filter строковую переменную гстрТипФайла.  
окнДиалоговоеОкноОткрыть.FilterIndex = гцелНомерППТипаФ 'Устанавливаем фильтр по умолчанию, выбрав для этого значение файлов.  
окнДиалоговоеОкноОткрыть.InitDir = гстрПутьФайлов 'Начальная директория, которая будет открываться при вызове диалогового окна.  
окнДиалоговоеОкноОткрыть.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNHideReadOnly 'Or cdOFNLongNames _  
'Выводим диалоговое окно в виде Эксплоэровского. Обеспечиваем выборность нескольких файлов, защиту от неправильно введенного _  
файла или дериктории, а так же скрываем флажок "Только для чтения".  
окнДиалоговоеОкноОткрыть.ShowOpen 'Вызываем диалог "Открыть...".  
Exit Sub 'Выход из процедуры.  
ОбработкаОшибки: 'Обработка перехватываемой ощибки 32755 — Cancel was selected (Выбрана Отмена).  
If Err.Number = 32755 Then  
End ' Если файлы не введены, то и не о чём говорить.  
End If  
End Sub  
Если можно, чуть поподробнее. Вот мой код...  
Private Sub ОпределитьсяСВведённойИнформациейПоФайлам() 'Возвращает наибольший доступный индекс для указанного измерения массива.  
Dim целВсегоЭлементовМассива As Integer  
Dim целСчётчикФайлов As Integer  
Dim целПорядковыйНомерРасширенияФ As Integer  
 
гстрПутьИФ = Split(окнДиалоговоеОкноОткрыть.Filename, vbNullChar) ' Разбиваю всё считанное в массив. Нулевым элементом _  
будет всё длинное имя файла, если введён он один если же введено несколько файлов то нулевым элементом идёт путь к файлам.

Подскажите, пожалуйста, где это именно — "в браузере". Как проверить, или установить. А то я очень часто с такой "бедой" сталкиваюсь. Как Вы понимаете, в этом деле я не очень. А по поводу вашей идеи, не знаю. Я думал так проще всего, ведь файлы самые различные, от разных программ и нашёл только это средство для их открытия.

В методе GetOpenFileName также есть свойство MultiSelect. Какие же возможности по моему вопросу при работе с этим методом?

Для метода Application.GetOpenFilename нет параметра задающего "по умолчанию" папку, которая бы открывалась при выводе окна- приглашения. Как быть? При использовании CommonDialog такой параметр был — InitDir. Подскажите пожалуйста, как задать папку.