Работа с файлами

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

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 & _
    "Øèôð êíèãè : " & Book(i).Number & vbCrLf & "Äàòà âûõîäà" & Book(i).Date & vbCrLf & _
    "Ìåñòîïîëîæåíèå : øêàô ¹ " & Book(i).Position & vbCrLf
    Next i
    'Label1.Caption = st
    Me.Print st:
End Sub