.NET 3.x Просмотр строк файла при нажатии кнопок "Вперед" и "Назад" - Visual Basic .NET

Формулировка задачи:

Есть программа. В ней якобы БД, которая на самом деле записана в файл.В этом файле логин+пароль в одной строке => под пользователя заведена одна строка.

952952|qwerty NYANBOY|123123 NYANGIRL|123123

Есть форма для просмотра пользователей. При появлении форма - текстбокс будет пустовать. При нажатии кнопки "вперед" - показывает первого пользователя (из файла/массива строк). С кнопкой "назад" думаю, что понятно. Моя попытка - показывает только последнюю запись

                    Листинг программы
                
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim PATH_USERS As String = "C:\temp\USERS.txt"
        Dim FILE() As String = IO.File.ReadAllLines(PATH_USERS, System.Text.Encoding.Default) 'массив строк'
 
        For i = 0 To FILE.GetUpperBound(0)
            TextBox1.Text = FILE(i)
        Next
    End Sub

Результат

NYANGIRL|123123

Может быть тут надо ввести счетчик, а потом в зависимости от значения счетчика выводить соотвествующую строку? Например, если i=3 (3 раза нажали "Вперед"), показывает 3 строку,иначе - сообщение об ошибке.

Решение задачи: «.NET 3.x Просмотр строк файла при нажатии кнопок "Вперед" и "Назад"»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
    Private counter, cMin, cMax As Integer
    Private myText() As String
    Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim pth As String = "C:\temp\USERS.txt"
        myText = IO.File.ReadAllLines(pth, System.Text.Encoding.Default)
        cMin = 0
        cMax = myText.Length - 1
        counter = 0
        TextBox1.Text = myText(counter)
    End Sub
    Private Sub ButtonStart_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If counter = cMin Then Exit Sub
        counter -= 1
        TextBox1.Text = myText(counter)
    End Sub
    Private Sub ButtonEnd_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If counter = cMax Then Exit Sub
        counter += 1
        TextBox1.Text = myText(counter)
    End Sub
End Class