Удалить определенную строку в txt файле - VB

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

Здравствуйте, необходимо удалить строку в txt файле, во вложении пример, с файла удаляет все, а нужно, чтобы удалило одну строку и не оставляло пустое место

                    Листинг программы
                
 
                        
                          
                    
Dim Filen
Dim k As Integer
Dim tS As String
Filen = FreeFile
 
Open ("C:\TIME\hours.txt") For Output As #Filen
 
For k = 1 To Val(Label1) + 1
Print #Filen, tS
Next k
If k = Val(Label1) Then Print #Filen,
Close #Filen

Решение задачи: «Удалить определенную строку в txt файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim St(10) As String
Open "C:\TIME\hours.txt" For Input As #1
    Dim S As String
    While Not EOF(1)
        N = N + 1
        Input #1, S
        St(N) = S
    Wend
Close #1
 
Open "C:\TIME\hours.txt" For Output As #1
    For i = 1 To 10
        If i <> Val(Label1) Then
            Print #1, St(i)
        End If
    
    Next
Close #1
End Sub
 
Private Sub Form_Load()
 
Open "C:\TIME\hours.txt" For Output As #1
For i = 1 To 10
    Print #1, "" & i
Next
Close #1
End Sub