Удалить из файла третью строку - VB

Option Explicit
 
Private Sub Form_Load()
Dim strText As String
Dim i As Integer
 
 
Open App.Path & "\" & "1.txt" For Input As #1
Open App.Path & "\" & "2.txt" For Output As #2
  
  Do Until EOF(1)
    Line Input #1, strText
    i = i + 1
    If i <> 3 Then Print #2, strText
    Loop
    
Close #1
Close #2
 
End Sub