Sub Main()
'Объявление переменной как объекта FileDialog.
Dim fd As FileDialog
'Создание объекта FileDialog как диалогового окна типа File Picker.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
        'Объявление переменной для хранения пути к каждому выбранному элементу.
        'Несмотря на то что путь представляет собой строковую переменную (String),
         'данная переменная должна являться объектом типа Variant, поскольку процедура
         'цикла For Each...Next работает только с объектами Variant и Object.
    Dim vrtSelectedItem As Variant
    'Использование блока With...End With для создания ссылки на объект FileDialog.
    With fd
        'Использование метода Show для вывода диалогового окна типа File Picker.
        'Пользователь нажал кнопку подтверждения действия.
        If .Show = -1 Then
            'Перебор элементов из коллекции FileDialogSelectedItems.
            For Each vrtSelectedItem In .SelectedItems
                'vrtSelectedItem содержит путь к каждому выбранному элементу.
                'Здесь можно использовать любые нужные функции ввода/вывода по отношению к полученному пути.
                'В данном примере путь просто отображается в окне сообщения.
                MsgBox "Путь: " & vrtSelectedItem
            Next vrtSelectedItem
        'Пользователь нажал кнопку отмены действия.
        Else
        End If
    End With
    'Очистка значения переменной-ссылки.
    Set fd = Nothing
End Sub

Sub main2()
Dim sFullFileName As Variant
Dim sFileName As Variant
Dim PATH_PIKT As Variant
PATH_PIKT = Application.GetOpenFilename("Файлы *.gif, *.gif", , "Выбрать картинку", , False)
If PATH_PIKT = False Then Exit Sub
sFullFileName = PATH_PIKT
sFileName = Dir(sFullFileName, vbDirectory)
  MsgBox "Путь: " & PATH_PIKT & vbCr & "Имя с расширением : " & sFileName
  
End Sub

Sub AAA()
Dim F_PUT_K_FILE_1 As Variant
Dim AAA As Variant
Dim BBB As Variant
AAA = [F_BUTTON_9].Value
BBB = [F_BUTTON_10].Value
'стандартный вариант
'F_PUT_K_FILE1 = Application.GetOpenFilename("Файлы картинки, *.gif; *.jpg; *.bmp", , "Выбрать картинку", , False)
'через переменную
'F_PUT_K_FILE1 = Application.GetOpenFilename(AAA, , BBB, , False)
'вариант с прямым использованием 2-х именных диапазонов 
F_PUT_K_FILE1 = Application.GetOpenFilename([F_BUTTON_9], , [F_BUTTON_10], , False)
End Sub

F_PUT_K_FILE1 = Application.GetOpenFilename([F_BUTTON_9] & [F_BUTTON_10], , [F_BUTTON_11], , False)

MsgBox Len(strFilter)