VBA msoFileDialogFolderPicker in Windows 7

Hello to you all


I'm having trouble to run a VBA module in Excel2007 / Windows7, that was running ok from long time in Excel2003 / WindowsXP.

A part of the module is:

Application.FileDialog(msoFileDialogFolderPicker).Show
sPath = CurDir & "\"

The issue is that in Excel2007 / Windows7 it always retrieves a folder in a level up.

Examples:
In Excel2003 / WindowsXP the variable sPath gets the value C:\work\1st_quarter\
In Excel2007 / Windows7 running the same code it gets C:\work\

In Excel2003 / WindowsXP the variable sPath gets the value C:\work\1st_quarter\tables\
In Excel2007 / Windows7 running the same code it gets C:\work\1st_quarter\

As an intermediary step, it also ran without problems in Excel2007 / WindowsXP , so it seams the issue is Windows 7 interaction with msoFileDialogFolderPicker...

Any clues?

Thanks a lot
Cheers