Удаление строк из txt - VB

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

простейший эксперимент. имеется .txt с одной строкой. выполняю код

dim F
F=freefile
Open (путь\файл.txt") For Output As #F
Print #F, allmytext2 ' allmytext2 - пустая текстовая переменная
Close #F

открываю вручную .txt, смотрю: в нём 2 пустые строки. что за бред? должна быть 1 пустая строка, т.е. абсолютно пустой txt. как правильно удалять строки из .txt?

Решение задачи: «Удаление строк из txt»

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

                            Dim F
F = FreeFile
Open "путь\файл.txt" For Output As #F
If kol = 1 Then Else Print #F, allmytext2 'если удаляется 1 строка и файла в котором 1 строка
Close F

                        