Default Folder for Pickfolder

[jtmach]

I am using PickFolder to allow users to browse the Outlook folders and pick one. I would like to be able to set a default folder that the browse starts in. Any suggestions or alternatives to this method would be greatly appreciated.
Here is the code that I have so far.

    Dim olApp As Outlook.Application
    Dim olFolder As Outlook.MAPIFolder
    
    Set olApp = CreateObject("Outlook.Application")
    Set olFolder = olApp.GetNamespace("MAPI").PickFolder
    
    If (olFolder Is Nothing) Then
        Set olFolder = Nothing
        Set olApp = Nothing
        Exit Sub
    End If
    
    Set olFolder = Nothing
    Set olApp = Nothing

The hardest questions always have the easiest answers.