Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = FileDialog(msoFileDialogFolderPicker)
With fd
.ButtonName = "Выбор"
.Title = "Выбор папки"
If Len(CurrentProject.Path) = 3 Then
.InitialFileName = CurrentProject.Path
Else
.InitialFileName = CurrentProject.Path & "\"
End If
If .Show = -1 Then
vrtSelectedItem = .SelectedItems(1)
End If
end with