مشکل در خواندن فایل متنی

[علی ارجمندی]

دوستان سلام
من توی یک پروژه مجبورم اطلاعات فایلهای متنی رو بخونم
من از شی StreamReader استفاده میکنم . اما اگر من
داخل فایل متن فارسی داشته باشم اصلاً لود نمیشه
نکته جالب اینجاست که کاملاً کد پیج از نوع UTF8 تشخیص
داده میشه اما از متون فارسی خبری نیست
مشتکرم میشم اگر دوستان کمک کنند

[javid_p84]

Imports System.IO
Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings
'
private sub FileReader ()
Dim utf8 As New Text.UTF8Encoding
Dim OpenFile As New OpenFileDialog
OpenFile.ShowDialog()
If OpenFile.FileName <> "" Then
txt.Clear()
Dim fs As New FileStream(OpenFile.FileName, FileMode.Open, FileAccess.Read)
Dim ar(fs.Length) As Byte

For i As Integer = 0 To fs.Length - 1
ar(i) = fs.ReadByte
Next

txt.Text = utf8.GetString(ar)
fs.Close()

End If
end sub

[علی ارجمندی]

از کمکتون واقعاً متشکرم