BrowseForFolder(*****, Ass)

[A$$Bandit]

Well I'm looking into the old BrowseForFolder() function and this is what I got:

Public Sub cmdGetPath_Click(Blah... blah)
        Dim oShell As New Shell32.Shell()
        Dim oFolder As Shell32.Folder
        Dim oFolderItem As Shell32.FolderItem
 
        oFolder = oShell.BrowseForFolder(Me.Handle.ToInt32(), "Select the output path...", 0)
End Sub

I can get the path of oFolderItem, but how do I set oFolder to that?