
Dim HTML As String
HTML = ""
HTML = HTML & " |
Private Sub UserForm_Initialize() 'Activate()
Set fs = CreateObject("Scripting.FileSystemObject")
fname = "c: est estfile.htm"
Set a = fs.CreateTextFile(fname, True)
a.WriteLine ("By lepat |
