[سعود]

على حسب ترتيب النصوص بالملف فلو كان الترتيب فقط سطر جديد بين كل جملة واخرى يعني هكذا
welcome
how are you
bye


فالكود هذا يقرا السطر الثاني

كود :

Dim a As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\s.txt")        
Dim p() As String = a.Split(vbNewLine)
TextBox1.Text = p(1)