Dim Var1, Var2, Var3 Open NotepadFile For Input As #1 Open HtmlFile For Output As #2 Do While Not EOF(1) ' Read data into variables. Input #1, Var1,Var2,Var3 Write #2, Var1,Var2,Var3 Loop ' Close file. Close #1 Close #2
Comment