Trying to Create a Folder Browser Dialog in my Macro

[victoryword]

Currently my code points directly to a directory but I want to be able to give people a choice as to which directory to go to. Any assistance is appreciated:

Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        
    If bCriminal Then
        CaseFolderPart1 = "N:\Criminal Open\" & Me.TextFirstName.Text
    End If
    If bDefense Then
        CaseFolderPart1 = "N:\Civil Open\" & Me.TextFirstName.Text
    End If
    If bTest Then
        CaseFolderPart1 = "N:\Test\" & Me.TextLastName.Text
    End If