كيف تقرأ بيانات في ملف TXT - نسخة قابلة للطباعة

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



    Dim lines() As String = IO.File.ReadAllLines("w.txt")



    For Each line As String In lines



        If line.Length = 21 Then

            Dim رقم_الجهاز As Integer = line.Substring(0, 2)

            Dim رقم_الموظف As Integer = line.Substring(2, 5)

            Dim اليوم As Integer = line.Substring(7, 2)

            Dim السهر As Integer = line.Substring(9, 2)

            Dim السنة As Integer = line.Substring(11, 4)

            Dim الساعة As Integer = line.Substring(15, 2)

            Dim الدقيقة As Integer = line.Substring(17, 2)

            Dim العملية As String = line.Substring(19, 1)

            Dim رقم_العملية As Integer = line.Substring(20, 1)



            Dim s As String

            s = "رقم الجهاز: " & رقم_الجهاز & vbNewLine

            s &= "رقم الموظف: " & رقم_الموظف & vbNewLine

            s &= "التاريخ: " & اليوم & "/" & السهر & "/" & السنة & vbNewLine

            s &= "الوقت: " & الساعة & ":" & الدقيقة & vbNewLine

            s &= "العملية: " & العملية & vbNewLine

            s &= "رقم العملية: " & رقم_العملية



            MsgBox(s, MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight)

        End If



    Next



End Sub