VBA получить путь к папке с помощью встроенного в диалоге

Путь к югу от папки ()
Dim $ ∥f∥p, obmapp из As Object
в Set obmapp = CreateObject ( "из Shell.Application") в BrowseForFolder. (0, "выберите файл каталога:", 0, 0)
Если не obmapp Ничто не является Тогда
Fp = obmapp & .Self.Path ""
Else
Exit Sub
Конец Если
MsgBox Ф.П.
Sub End