byteArray转换为string:
Dim b(3) As Byte
b(0) = &HCE
b(1) = &HD2
b(2) = &HC3
b(3) = &HC7
Dim z As System.Text.Encoding
z = System.Text.Encoding.GetEncoding("gb2312")
Debug.Print(z.GetString(b))
从文件中读取中文字符
Dim m As New IO.FileStream("d:/out.txt", IO.FileMode.Open)
Dim ss As New IO.StreamReader(m, Encoding.GetEncoding(936))
Dim p As String
Do While Not ss.EndOfStream
p = ss.ReadLine()
If p.Length Then ListBox1.Items.Add(p)
Loop