[3booody]

السلام عليكم ورحمة الله وبركاته
يمكنك تقسيم النص على حسب الاسطر وبهالشكل

كود :

Dim txt As String = IO.File.ReadAllText(FileName)
        Dim lin() As String = txt.Split(vbNewLine)
        If lin(4).Chars(0) = "a" Then
            'Do
        End If