GetSaveAsFilename

Invokes the common Save As file dialog.

Parameters
InitialFilenameStr
Optional: The default path and/or file name to select.
FileFilterStr
Optional: A string of comma-delimited filter pairs used to control which files are initially displayed. For example, "Text Files,*.txt, Bitmap Files,*.bmp". If omitted then the "All Files,*.*" filter will be used.
FilterIndexVal
Optional: The zero-based index of the filter to use.
TitleStr
Optional: Title to display in the dialog caption. If omitted, the caption displays "Save As".
ButtonTextStr
Optional: Custom text to display in the select button. If omitted, the button displays "Save".
Returns
The full path and name of the selected file, or an empty string if the selection was canceled.
Example
Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect
File1 = bzhao.GetSaveFileName()
MsgBox File1