【ExcelVBA】フォルダ選択ダイアログ

Shell.Application.BrowseForFolder()

Dim Shell As Object, pathInfo As String
    Set Shell = CreateObject("Shell.Application")
    Set pathInfo = Shell.BrowseForFolder(&O0, "フォルダを選択", &H1 + &H10, "C:\")
    If Not pathInfo Is Nothing Then
         MsgBox pathInfo.Items.Item.Path

 ただし、この方法だと最初に選択しているディレクトリが設定できない？

Win32API

参考：

Office TANAKA - Excel VBA Tips[フォルダを選択するダイアログ]