HELP!! eliminar una linea de un archivo .txt desde visual

[forrestgump]

Private Sub Command1_Click()
List2.AddItem Text1.Text
Text1.Text = ""
Label3.Caption = "Hay " & List2.ListCount & " Elementos"
Text1.SetFocus
Call GuardarArchivo
End Sub

\\\\\\ lo agregue a una lista y abajo lo mande a un archivo de texto

Private Sub GuardarArchivo()
Dim i As Integer
Open "c:\malpica\lineas.txt" For Output As #1
For i = 0 To List2.ListCount 'ListBox.ListCount
Print #1, List2.List(i) 'ListBox.List(i)
Next i
Close #1
End Sub

he copiado estos fragmentos de codigo de otros programas en mi desesperacion.. y los hice funcionara mi manera pero me falta eliminarlos del archivo de texto.