Работа с файлами - VB (60876)

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

Есть два условия: а) Создать файл, содержащий сведения о личной коллекции книголюба: шифр книги, автор, название, год издания, местоположение(номер шкафа, стеллажа и т. п.). б) Написать программу, выдающую следующую информацию: - место нахождения книги автора Х, название У(значение Х, У ввести с терминала); - список книг автора Z, находящихся в коллекции, - число книг издания ХХ года, имеющихся в библиотеке. С первым справился, а для выполнения второго не могу нормально извлечь данные из файла. Ошибка вылетает. Вот код:

Private Type typeBook
     Number As Integer
     Writer  As String
     Name As String
     Date As Date
     Position As Byte
End Type
 
Dim Book(1 To 5) As typeBook

Private Sub Form_Load()
 Dim st As String
 Dim i As Integer
  Book(1).Name = "Dyxless"
  Book(2).Name = "The Telki"
  Book(3).Name = "Videoты"
  Book(4).Name = "Война и мир"
  Book(5).Name = "Преступление и наказание"
    Book(1).Writer = "Сергей Минаев"
    Book(2).Writer = "Сергей Минаев"
    Book(3).Writer = "Сергей Минаев"
    Book(4).Writer = "Лев Толстой"
    Book(5).Writer = "Фёдор Достоевский"
       Book(1).Number = 4564
       Book(2).Number = 3564
       Book(3).Number = 4435
       Book(4).Number = 2862
       Book(5).Number = 3245
         Book(1).Date = #12/1/2001#
         Book(2).Date = #4/20/2010#
         Book(3).Date = #7/30/2007#
         Book(4).Date = #11/24/2012#
         Book(5).Date = #1/13/2002#
           Book(1).Position = 4
           Book(2).Position = 9
           Book(3).Position = 4
           Book(4).Position = 8
           Book(5).Position = 3
    
    For i = 1 To UBound(Book)
    st = st & vbCrLf & "Название книги : " & Book(i).Name & vbCrLf & "Автор : " & Book(i).Writer & vbCrLf & _
    "Шифр книги : " & Book(i).Number & vbCrLf & "Дата выхода" & Book(i).Date & vbCrLf & _
    "Местоположение : шкаф № " & Book(i).Position & vbCrLf
    Next i
    Label1.Caption = st
End Sub
 
Private Sub Command1_click()
   Dim i As Integer
  Book(1).Name = "Dyxless"
  Book(2).Name = "The Telki"
  Book(3).Name = "Videoты"
  Book(4).Name = "Война и мир"
  Book(5).Name = "Преступление и наказание"
    Book(1).Writer = "Сергей Минаев"
    Book(2).Writer = "Сергей Минаев"
    Book(3).Writer = "Сергей Минаев"
    Book(4).Writer = "Лев Толстой"
    Book(5).Writer = "Фёдор Достоевский"
       Book(1).Number = 4564
       Book(2).Number = 3564
       Book(3).Number = 4435
       Book(4).Number = 2862
       Book(5).Number = 3245
         Book(1).Date = #12/1/2001#
         Book(2).Date = #4/20/2010#
         Book(3).Date = #7/30/2007#
         Book(4).Date = #11/24/2012#
         Book(5).Date = #1/13/2002#
           Book(1).Position = 4
           Book(2).Position = 9
           Book(3).Position = 4
           Book(4).Position = 8
           Book(5).Position = 3
         
    F = FreeFile
Open App.Path & "\Текст лабы.txt" For Output As #F
 
For i = 1 To UBound(Book)
Write #F,
Write #F, Book(i).Name
Write #F, Book(i).Writer
Write #F, Book(i).Number
Write #F, Book(i).Date
Write #F, Book(i).Position
Write #F,
Next i
 
Close #F

End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim st1$, st2$, st3$, st4$, st5$
 
F = FreeFile
Open App.Path & "\Текст лабы.txt" For Input As #F
 
For i = 1 To UBound(Book)
Input #F, Book(i).Name
Input #F, Book(i).Writer
Input #F, Book(i).Number
Input #F, Book(i).Date
Input #F, Book(i).Position
 
Next i

Close #F
End Sub

Помогите пожалуйста

Решение задачи: «Работа с файлами»

textual
                            Листинг программы 
                        

                            Private Sub Command1_click()
   Dim i As Integer
         
    F = FreeFile
Open App.Path & "\Г’ГҐГЄГ±ГІ Г«Г*ГЎГ».txt" For Output As #F
 
For i = 1 To UBound(Book)
Write #F, Book(i).Name
Write #F, Book(i).Writer
Write #F, Book(i).Number
Write #F, Book(i).Date
Write #F, Book(i).Position
Next i
 
Close #F
Cls
   
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim st1$, st2$, st3$, st4$, st5$
 
F = FreeFile
Open App.Path & "\Г’ГҐГЄГ±ГІ Г«Г*ГЎГ».txt" For Input As #F
 
For i = 1 To UBound(Book)
Input #F, Book(i).Name
Input #F, Book(i).Writer
Input #F, Book(i).Number
Input #F, Book(i).Date
Input #F, Book(i).Position
 
Next i
 
Close #F
 
For i = 1 To UBound(Book)
    st = st & vbCrLf & "ГЌГ*Г§ГўГ*Г*ГЁГҐ ГЄГ*ГЁГЈГЁ : " & Book(i).Name & vbCrLf & "ГЂГўГІГ®Г° : " & Book(i).Writer & vbCrLf & _
    "Г
                        