dim oFileBrowser
set oFileBrowser = XSIUIToolkit.FileBrowser
oFileBrowser.DialogTitle = "Select a file"              ' set the title of the file browser
oFileBrowser.InitialDirectory = "c:\myInitialDir\"
oFileBrowser.Filter = "All Files (*.*)|*.*||"   ' Allow selection of all files
oFileBrowser.ShowSave                                                   ' show an save file dialog
If oFileBrowser.FilePathName <> "" Then
                logmessage "User selected " & oFileBrowser.FilePathName
Else
                logmessage "User pressed cancel"
End If