dim oFileBrowser
set oFileBrowser = XSIUIToolkit.FileBrowser
oFileBrowser.DialogTitle = "Select a file"              ' set the title of the file browser
oFileBrowser.Filter = "All Files (*.*)|*.*||"   ' Allow selection of all files
oFileBrowser.ShowOpen                                                   ' show an open file dialog
logmessage VB_LF
' if the user selected a file
If oFileBrowser.FilePathName <> "" Then
                logmessage "File extension : " & oFileBrowser.FileExtension
' the user did not select a file
Else
                logmessage "User pressed cancel"
End If