Or, its a billion times easier to create a new module in word/excel whatever and paste the following as a macro:

Option Explicit

Sub test()
Dim davesFolder As FileDialog
Set davesFolder = Application.FileDialog(msoFileDialogFolderPicker)
davesFolder.InitialFileName = "C:\daves_useful_folder\"
davesFolder.Show
End Sub

Cheers.