ok, i used the first code like this:

Function replace()
Dim myArr() As Variant
Dim myVar As String
Dim i As Integer
Open "c:\_test.html" For Input As #1
Do Until EOF(1)
i = i + 1
ReDim Preserve myArr(1 To i) As Variant
Line Input #1, myVar
myArr(i) = myVar
myArr(i) = Trim(myArr(i))
If myArr(i) = "</body></html>" Then
myArr(i) = ""
End If

Loop
Close #1
Open "c:\_test.html" For Output As #2
For i = 1 To i
Write #2, myArr(i)
'MsgBox myArr(i)
Next
Close

End Function

and it does finds </body></html> and removes them.
and i can build the html like i wanted.
but..:
the html gets filled with """"""""" everywere.
i cant figure why

here is what i got:

"""<html><body>"""
"""<title></title>"""
""""""
"""<text='0000ff'><h7>5</h7> <br>"""
""""""
"<text='0000ff'><h7>5</h7> <br>"
""
<text='ffffff'><h7>Total: 10
<br>---------------------

</h7>
</body></html>

please help?