Работа с файлами - 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 & _
    "Г