Function BrowseForFile() Dim fs 'As Scripting.FileSystemObject Dim ts 'As Scripting.TextStream Const ForWriting = 2 Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile("C:\~temp.htm", ForWriting, True) ts.WriteLine "Select File
 Select File:" ts.WriteLine "
 " ts.WriteLine "
 " ts.WriteLine "
" ts.Close BrowseForFile = window.showModalDialog("C:\~temp.htm", "", "dialogWidth:300px;dialogHeight:120px") fs.DeleteFile "C:\~temp.htm", True End Function