Give this a shot

'Load the Input Dir
InputDirectory = "C:\"

'Save the current Dir for later Clean up
CurrentDirectory = CurDir

'Change the Dir to look in
ChDir (InputDirectory)

'Load FileNameToOpen
FileNameToOpen = Application.GetOpenFilename

'Clean up
ChDir (CurrentDirectory)


HTH
-Merk