Dim dlgOpenFile As Object ' FileDialog

  Set dlgOpenFile = Application.FileDialog(4) 'msoFileDialogFolderPicker

  With dlgOpenFile

    .Filters.Clear

    .InitialFileName = CurrentProject.Path

    .AllowMultiSelect = False

    .Title = "ляляля"

    If (.Show = -1) And (.SelectedItems.Count > 0) Then

      МаёПоле.Value = .SelectedItems(1)

    End If

  End With

  Set dlgOpenFile = Nothing