[vbnet]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim s As String = IO.File.ReadAllLines("xx.txt")(2) ' الأسطر تبدأ من الرقم صفر وهنا قرأنا السطر الثالث
        MsgBox(s)
    Catch ex As Exception
    End Try
End Sub