小吳 VBQA 程式設計討論

小弟寫了一個直接將html的code輸出到temp.html的程式 , 但用IE開啟,可在某些位置看到亂碼,使到後面的html code也不能產生原有的效果 , 相信是檔案coding的問題 , 我是用binary 寫入的 , 請問該如何可以制作出正確的ascii value?
程式碼如下:
Private Sub Command1_Click()
Dim ts As Byte
LineNum = 0
PL = False
FS(1) = "＜br＞＜blockquote＞＜blockquote＞＜blockquote＞　"
FS(2) = "＜p align=left＞＜b＞     ＜/b＞＜/p＞　 "
FS(3) = "＜table border=0 cellpadding=0 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=65% id=AutoNumber1＞　 "
FS(4) = "＜tr＞＜td width=25%＞＜b＞To＜/td＞＜td width=75%＞＜b＞　 "
FS(5) = "   ABC Company＜/td＞＜/tr＞＜tr＞　"
FS(6) = "＜td width=25%＞＜b＞Date ＜/td＞＜td width=75%＞＜b＞　 "
FS(7) = "   20/02/2004＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Fax no.＜/b＞＜/td＞　"
FS(8) = "＜td width=75%＞＜b＞:   27771111＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Attn.＜/b＞＜/td＞＜td width=75%＞＜b＞:   Mr. Chan＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Offered by＜/b＞＜/td＞　 "
FS(9) = "＜td width=75%＞＜b＞:   Mr. Steven Yip＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Ref. no.＜/b＞＜/td＞＜td width=75%＞＜b＞:   PRQ532123＜/td＞＜/tr＞＜tr＞　 "
FS(10) = "＜td width=25%＞＜b＞Validity＜/b＞＜/td＞＜td width=75%＞＜b＞:   30 Days＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Delivery＜/b＞＜/td＞＜td width=75%＞＜b＞:   60 Days＜/td＞＜/tr＞＜tr＞＜td width=25%＞＜b＞Total Pages＜/b＞＜/td＞　 "
FS(11) = "＜td width=75%＞＜b＞　 "
FS(12) = "   5＜/td＞＜/tr＞＜/table＞＜p align=left＞＜b＞        ＜/p＞＜/blockquote＞＜/blockquote＞＜/blockquote＞　 "

Open App.Path & "\tempReport.html" For Binary As #1
Open App.Path & "\tempReport2.html" For Binary Access Write As #2
　While Not (EOF(1))
　 Get #1, , ts
　 If ts = 13 Then LineNum = LineNum + 1
　 If LineNum = 6 And PL = False Then
　　Put #2, , "＜br＞＜br＞＜br＞＜center＞＜h3＞＜b＞＜u＞QUOTATION＜/u＞＜/b＞＜/h3＞＜/center＞＜br＞"
　　For i = 1 To 12
　　 Put #2, , FS(i)
　　 Debug.Print "Len(" & i & ") = " & Len(FS(i))
　　Next i
　　PL = True
　 End If
　 Put #2, , ts
　Wend
Close #2
Close #1
MsgBox LineNum
End
End Sub