dim objShell
dim ssfDRIVES
dim objFolder
ssfDRIVES = &H11
set objShell = CreateObject("Shell.Application")
 
'set objFolder = objShell.BrowseForFolder(0, "Example", 0, "C:\Music")
set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfDRIVES)
 
if (not objFolder is nothing) then
  MsgBox objFolder.Items().Item.Path
end if
 
set objFolder = nothing
set objShell = nothing