Private Sub Form_Current()
Dim f, fs, strURL
strURL = "c:\docs\tmp.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strURL, True)
a.Write Me.HTM
a.Close
Set IE = Me.wb 'Microsoft Web Browser
IE.Navigate strURL
End Sub