VB.NETには、フォルダ指定のダイヤログは無いのでしょうか？？
VB6.0には、確か
Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダ選択をしてください。", 0, strwk)
strBuff = objFolder.Items.Item.Path

んなものがあったはずなのだが、これはうまい事動かないですぞ。