Correction for the parent folder selection issue I have.
replace
Code:
With Application.FileDialog(msoFileDialogFolderPicker)
bDisplayVal = .Show
szPath = VBA.CurDir
End With
With
Code:
With Application.FileDialog(msoFileDialogFolderPicker)
bDisplayVal = .Show
szPath = .SelectedItems(1)
End With