' ------------------------------------------------------------------------------------ ' Test of the HTML Dialog (IE4 must be installed) ' ------------------------------------------------------------------------------------ Option Explicit Const ForReading = 1, ForWriting = 2 const sTestFile = "c:\MySearch.html" Dim fso, f, m, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile( sTestFile, ForWriting, True) f.WriteLine "" f.WriteLine "" f.WriteLine "Search Dialog" f.WriteLine "" f.WriteLine "" f.WriteLine "" 'f.WriteLine "" f.WriteLine "" f.WriteLine "" f.WriteLine "" f.WriteLine "" f.WriteLine "" f.WriteLine "
" f.WriteLine "Enter text to search for:" f.WriteLine "" f.WriteLine "" f.WriteLine "

 " f.WriteLine "" f.WriteLine "

" f.WriteLine "
" f.WriteLine "" f.WriteLine "" f.Close s = app.HTMLDialog(sTestFile, "", "dialogWidth:300px;dialogHeight:150px") MsgBox "The typed string = '" & s &"'"