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

txt1 = "H:\test\in"
txt2 = "H:\test\out"
Open txt1 For Input As 1
Open txt2 For Output As 2
  Do
    Line Input #1, s
    If EOF(1) Then Exit Do
    Print #2, s
  Loop
Close