Реализация черного списка пользователей через файловую БД

Imports System.IO
 
Public Class Form6
    Private PATH_USERS As String = "C:\temp\USERS.txt"
    Private PATH_BLOCK As String = "C:\temp\BLOCK.txt" 'путь'
    Private FILE_BLOCK() As String
    Private FILE() As String
 
    Public i As Integer = 0
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'вперед'
        If (i > FILE.Length - 1) Then
            MsgBox("Больше пользователей нет")
        Else
            TextBox1.Text = FILE(i)
 
            i = i + 1
            Button1.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
        End If
    End Sub
 
    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'загрузка формы'
        FILE = IO.File.ReadAllLines(PATH_USERS, System.Text.Encoding.Default) 'массив строк'
        FILE_BLOCK = IO.File.ReadAllLines(PATH_BLOCK, System.Text.Encoding.Default)
        Button1.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'назад'
        i = i - 1
 
        If (i = 0) Then
            MsgBox("Больше пользователей нет")
        Else
            TextBox1.Text = FILE(i - 1)
        End If
    End Sub