Чтение файла произвольного доступа построчно

Dim str as string ' Строка для считывания строки из файла
Dim q as integer=0 'номер строки
 FileOpen(1, "C:\\Rabota\\Rabota\\Book.txt", OpenMode.Random, OpenAccess.Read)
q+=1
 FileGet(1, str, q)    ' В это строке ошибка

Dim q As Integer = -1 'Вынести за пределы обработчика событий нажатия кнопки
 
Dim strArray() As String = IO.File.ReadAllLines("C:\Rabota\Rabota\Book.txt", System.Text.Encoding.Default)
q += 1
MsgBox(strArray(q))

Public Class Form1
 
    Dim FileNumber, q As Integer, lenString As Integer = 10
 
    'Сначала создаём "правильный" файл
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        FileNumber = FreeFile()
        'FileOpen(FileNumber, "C:\\Rabota\\Rabota\\Book.txt", OpenMode.Random, OpenAccess.Read)
        FileOpen(FileNumber, "C:\tmp\Book.txt", OpenMode.Random, OpenAccess.Write)
        Dim s As String = ""
        For i As Integer = 1 To 9
            FilePut(FileNumber, StrDup(lenString, i.ToString), i, True)
        Next
        FileClose(FileNumber)
    End Sub
 
    'Открываем файл
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileNumber = FreeFile()
        'FileOpen(FileNumber, "C:\\Rabota\\Rabota\\Book.txt", OpenMode.Random, OpenAccess.Read)
        FileOpen(FileNumber, "C:\tmp\Book.txt", OpenMode.Random, OpenAccess.Read)
        q = 0
    End Sub
 
    'Читаем записи по порядку  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim str As String = StrDup(lenString, " ") ' Строка для считывания строки из файла
        q += 1
        FileGet(FileNumber, str, q, True)
    End Sub
 
    'Закрываем файл
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        FileClose(FileNumber)
        q = 0
    End Sub
 
 
End Class

Public Class Form1
 
    Dim q As Integer = -1
    Dim FileArray() As String = {}
 
 
    'Создаём файл из 9-ти строк (для теста)
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim arr As New List(Of String)
        For i As Integer = 1 To 9
            arr.Add(StrDup(10, i.ToString))
        Next
        IO.File.WriteAllLines(Application.StartupPath & "\Book.txt", arr, System.Text.Encoding.Default)
    End Sub
 
    'Читаем строки из файла в массив FileArray()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileArray = {}
        FileArray = IO.File.ReadAllLines(Application.StartupPath & "\Book.txt", System.Text.Encoding.Default)
        q = -1
        If Not FileArray Is {} And FileArray.Count > 0 Then
            Me.Text = "Строки загружены"
        End If
    End Sub
 
    'Читаем записи по порядку из массива строк
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not FileArray Is {} And FileArray.Count > 0 Then
            Select Case q
                Case 0 To FileArray.Count - 2
                    q += 1
                Case Else
                    q = 0
            End Select
 
            TextBox1.Text = FileArray(q)
        Else
            MsgBox("Array is empty or did not fill yet")
        End If
    End Sub
 
    'Очищем массив строк
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        FileArray = {}
        TextBox1.Text = String.Empty
        Me.Text = "Строки очищены"
    End Sub
 
End Class