Построчная запись в файл

Type myRecord
name As String * 50
End Type
 
 
Private Sub zapice_v_fail()
Dim slovo As myRecord
Dim nRec As Integer
f = FreeFile
Open App.Path & "\Zapisi_vvedenih_komand.txt" For Random As f Len = Len(slovo)
nRec = LOF(f) \ Len(slovo)
nRec = nRec + 1
slovo.name = Text.Text
Put #f, nRec, slovo
Close #f
End Sub

Option Explicit
 
Private Type myRecord
  Name As String
  Lng As Integer
  Exist As Boolean
End Type
 
Dim slovo(1 To 50) As myRecord
 
Private Sub Command1_Click()
 
 slovo(1).Exist = True
 slovo(1).Name = "Ж..а"
 slovo(1).Lng = 100
 slovo(2).Name = "Вторая "
 '...............
 '..............
 '.............
 slovo(50).Exist = True
 
 Write_Data
End Sub
Public Sub Write_Data()
On Error Resume Next
Dim i As Integer
 Open App.Path + "\" + "Text_Output" + ".txt" For Output As #1
     For i = 1 To UBound(slovo)
        Print #1, slovo(i).Name
        Print #1, slovo(i).Lng
        Print #1, slovo(i).Exist
     Next i
  Close #1
End Sub

Private Type myRecord
  Name As String
  Lng As Integer
  Exist As Boolean
End Type
 
Dim slovo As myRecord
 
Private Sub Command1_Click()
 
 slovo.Exist = True
 slovo.Name = "Ж..а"
 slovo.Lng = 100
 
 Write_Data
End Sub
Public Sub Write_Data()
On Error Resume Next
Dim i As Integer
 Open App.Path + "\" + "Text_Output" + ".txt" For Append As #1
        Print #1, slovo.Name
  Close #1
End Sub