sub getfilename()

Dim sDirCurrent As String

'1. Deifine the current directory

sDirCurrent = CurDir

'2. Define the default directory to show when the windows explorer pops

sDirDefault = "C:\some\default\directory"

'3. Change drive and directory to the file directory, and drive chosen by the user

ChDrive Left(sDirDefault, 1)

ChDir (sDirDefault)

GetOpenFilenameFrom = Application.GetOpenFilename(sFileTypes)

ChDrive Left(sDirCurrent, 1)

ChDir (sDirCurrent)

End Sub