Может надо это?
[vba]Код
Sub Zay()
Shell "explorer.exe " & Valeri, vbMaximizedFocus
End Sub
Function Valeri(Optional ByVal Title As String = "Выбор папки", _
Optional ByVal InitialPath As String = "c:\") As String
Dim abc As String: abc = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
If Not Right$(InitialPath, 1) = abc Then InitialPath = InitialPath & abc
.ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
If .Show <> -1 Then Exit Function
Valeri = .SelectedItems(1)
If Not Right$(Valeri, 1) = abc Then Valeri = Valeri & abc
End With
End Function
[/vba]