Private Sub Form_Load()
Dim textline
'open file using function input for reading
Open ("h:/write_into_html_from_this_txt_file.txt") For Input As #1
'open files using function output for writing
Open "h:/target_write.html" For Output As #2
Open "h:/target_write.txt" For Output As #3
Dim LinesFromFile, NextLine As String
filenum = 1
Do Until EOF(filenum)
'Use Line Input statement for reading each line and assign it to a string variable
Line Input #filenum, NextLine
LinesFromFile = NextLine
'Write to an HTML file.
<BR> is used for next line
Print #2, NextLine & "<BR>"
'Write to a text file
Print #3, NextLine
Loop
MsgBox "Program Over"
End Sub