Создать текстовый файл 2, в который переписать текст из файла 1, добавляя в конец кожной строки символ ";" - VB

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

Вот эти задания просто кошмар... У нас их вообще никто не может сделать...

Задание 1

Дан текстовый файл 1. Создать новий текстовый файл 2, в который переписать текст из файла 1 добавляя в конец кожной строки символ «;» .

Решение задачи: «Создать текстовый файл 2, в который переписать текст из файла 1, добавляя в конец кожной строки символ ";"»

textual
                            Листинг программы 
                        

                            Option Explicit
'
'   © Антихакер32™
'
Private Sub Form_Activate()
   Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso.CreateTextFile(App.Path & "\test.txt")
        .Writeline "привет"
        .Writeline "пиплы :)"
    End With
    'Считываем что записали
    With fso.OpenTextFile(App.Path & "\test.txt")
        Print .readline, , ";"
        Print .readline, , ";"
    End With
End Sub
                        