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 "