如何用VB生成HTML格式的文件？

Question

下面是我的方法：
Set dObj_FileSystem = CreateObject("Scripting.FileSystemObject")
Set dObj_File = dObj_FileSystem.CreateTextFile(PathFile, Create, False)
dObj_File.WriteLine (Line1) ‘line1是要写的一行内容
dObj_File.WriteLine (Line2) HTML类似文本文件，用上面的方法,只能一行行写入。
由于html文件比较大，行数多，上面的方法不方便。
请问有什么效率高点的写入方法？