Диалоговое окно выбора папки

Код (vb.net):

        dim objShell
        dim objFolder
     
        set objShell = CreateObject("shell.application")
            set objFolder = objShell.BrowseForFolder(&H0, "Example",&H4000, "c:\\")
                if (not objFolder is nothing) then
                objShell.ShellExecute objFolder.ParentFolder.ParseName(objFolder.title).Path, "", "", "open", 1
                end if
            set objFolder = nothing
        set objShell = nothing