各位老大，关于rtf的问题，帮忙解决

[nwt123]

http://www.codeproject.com/aspnet/wordapplication.asp?msg=916345
在上面这个网站上下载的源代码。
有关读写rtf文件的代码如下,
StreamWriter objWriter;
objWriter = new StreamWriter( ConfigurationSettings.AppSettings["WordDoc"] + DocName.Text + ".rtf",false, System.Text.Encoding.ASCII);

objWriter.WriteLine("{\\rtf1");
objWriter.WriteLine("{\\info{\\title Sample RTF Document}" +"{\\author Microsoft Developer Support}}");

objWriter.WriteLine("{\\header\\pard\\qc{\\fs50 " + "ASP-Generated RTF\\par}{\\fs18\\chdate\\par}\\par\\par}");
objWriter.WriteLine("{\\footer\\pard\\qc\\brdrt\\brdrs\\brdrw10\\brsp100" +
"\\fs18 Page " +
"{\\field{\\*\\fldinst PAGE}{\\fldrslt 1}} of " +
"{\\field{\\*\\fldinst NUMPAGES}{\\fldrslt 1}} \\par}");
objWriter.WriteLine("\\par\\fs24\\cf2 This is a sample \\b RTF \\b0 " +
"document created with ASP.\\cf0");
objWriter.WriteLine("\\par 1\\page");
objWriter.WriteLine("\\pard\\fs18\\cf2\\qc " +
"This sample provided by Microsoft Developer Support.");

//'close the RTF string and file
objWriter.WriteLine("}");
objWriter.Close();


执行后没有问题,很好用.但是用vb改后(也没有改多少),只能原样输出,没有对格式进行转换.
请各位老大帮我看看,怎么用vb.net实现