VB.net读取文本（中文）

Dim  r  As  System.IO.StreamReader
        r  =   New  System.IO.StreamReader( " c:a.txt " , System.Text.Encoding.GetEncoding( " GB2312 " ))
         Do   While   Not  r.EndOfStream
             MsgBox (r.ReadLine)
         Loop

 如果文本文件里有半角的日文之类的，可以将文本存成unicode或是utf-8格式的，另外读的时候要用：

System.Text.Encoding.GetEncoding("utf-8"))