主题：.dat文件用记事本打开不乱码，用软件打开乱码

Dim s As String = FileSys.ReadAllText(strPath)
Dim ary() As String = s.split(chr(13))
msgbox(ary(12))

用的是这个语句，中文部分乱码