Dim intFileNumber as Integer
intFileNumber = FreeFile
Open "c:\temp\test.html" for output as #intFileNumber
Write #intFileNumber, "<HTML>"
Write #intFileNumber, "<BODY>"
Write #intFileNumber, text1.text
Write #intFileNumber, "</BODY>"
Write #intFileNumber, "</HTML>"
Close #intFileNumber