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

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

что делать если в текстовом файле получается запись данных на одной строке постоянно?? например когда я ввожу какое либо значение текст продолжает писаться с права на этой же строке а не начинает запись ниже!! как сделать запись ниже на одну строку при вводе новых данных пример: 1 строка : "я" 2 строка: " 123" и так далее

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Построчная запись в файл»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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