Following is the code sample used to display the outlook folder dialog using VB.NET
Code:
Dim objOutlook As Object
Dim objOlNamespace As Object
Dim objOlFolder As Object

objOutlook = CreateObject("Outlook.Application") ' create outlook application object at the run time
objOlNamespace = objOutlook.GetNamespace("MAPI")
objOlFolder = objContactsNS.PickFolder ' displays the folder dialog
...