'txt = File.ReadString(File.DirAssets, filename)
Dim arrByte() As Byte
Dim result99 As String
arrByte = File.ReadBytes(File.DirAssets, filename)
'arrByte = txt.GetBytes("Windows-1252")
result99 = BytesToString(arrByte, 0, arrByte.Length, "Windows-1252")