Thanks for the help! I've managed to get both of these suggested methods to work.
For reference, I've ended up using the following:
Dim objShell, objFolder, objFolderItem
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Select folder to write...