GetOpenFilename

Invokes the common Open file dialog.

Parameters
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 is 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 “Open".
ButtonTextStr
Optional: Custom text to display in the select button. If omitted, the button displays "Open".
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.GetOpenFileName()
MsgBox File1