В текстовом файле производить перезапись строк не последовательно а те, которые нужно - VB

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

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

                    Листинг программы
                
 
                        
                          
                    
s(5)="текст старый"
s(5)=s(5)&"новый текст"
open App.Path&"\Text.txt" for output As #1
for i = 1 to 10
print #1,s(i)
next i
close #1

как можно записать эту строчку например не внося другие в оперативную память компьютера??

спасибо заранее всем кто поможет!! буду благодарен за помощь

Решение задачи: «В текстовом файле производить перезапись строк не последовательно а те, которые нужно»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim MyRecord As String*5, RecordNumber ' Объявляем переменные
 
' Открываем файл для произвольного доступа
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
  For RecordNumber = 1 To 5 ' Циклимся 5 раз
    MyRecord = "Id:0" & RecordNumber ' Создаём строку
    Put #1, RecordNumber, MyRecord ' Записываем запись в файл
  Next RecordNumber
Close #1 ' Закрываем файл 
 
' Открываем файл с произвольным доступом (Random)
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
  RecordNumber = 3 ' Устанавливаем позицию начала чтения
  Get #1, RecordNumber, MyRecord ' Читаем одну запись
Close #1 ' Закрываем файл