Получить путь к файлу (заканчивается папкой)

Я знаю, как разрешить пользователю щелкнуть кнопку для перехода к определенному файлу для открытия.

Код:

Private Sub CommandButton2_Click()
    Dim vaFiles As Variant

    vaFiles = Application.GetOpenFilename()

    ActiveSheet.Range("B9") = vaFiles
End Sub

Мне нужна вторая кнопка, которая позволит пользователю перейти в папку для сохранения файла .pdf , созданного моей программой.

Проблема: для GetOpenFilename требуется пользователь чтобы щелкнуть файл. Если в папке нет файла, пользователь ничего не может сделать.