Считывание файла по строкам

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Вход для админа'
        Dim PATH_ALOG As String = "C:\temp\LoginADMIN.txt" 'путь'
        Dim PATH_APAS As String = "C:\temp\PasswordADMIN.txt" 'путь'
        Dim Login As String
        Dim Password As String
 
        Using readerLogin As New StreamReader(PATH_ALOG) 'считывание логина'
            Login = (readerLogin.ReadToEnd())
            readerLogin.Close()
        End Using
 
        Using readerPass As New StreamReader(PATH_APAS) 'считывание пароля'
            Password = (readerPass.ReadToEnd())
            readerPass.Close()
        End Using
 
        If (Login = CStr(TextBox1.Text)) Or (Password = CStr(TextBox2.Text)) Then
            Form3.Show()
 
        Else
            MsgBox("Неверный логин и/или пароль")
        End If
 
    End Sub

    Dim PATH_USERS As String = "C:\temp\USERS.txt"
        Dim Login As String
        Dim Password As String
 
        Using Login_PARSER As New FileIO.TextFieldParser(PATH_USERS)
            Login_PARSER.TextFieldType = FileIO.FieldType.Delimited
            Login_PARSER.SetDelimiters("|")
        End Using

        Dim Line() As String = IO.File.ReadAllLines("C:\TNIY-TNIM.txt", System.Text.Encoding.Default)
        Dim Ind As Integer = 1
        MsgBox(Line(Ind).Split("|")(0) & vbCrLf & Line(Ind).Split("|")(1))