Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Sub TestAPI()
Dim CurrentPath As String
Dim Filename As Variant
'Store the current path
CurrentPath = CurDir
'Change the path to the one we want
SetCurrentDirectory "\\SomeServer\Some Path"
'Ask for the file name
Filename = Application.GetSaveAsFilename()
If TypeName(Filename) <> "Boolean" Then
MsgBox Filename
End If
'Change the path back
SetCurrentDirectory CurrentPath
End Sub