visual basic especie de agenda

[asdexiva]

por favor necesito ayuda :S

este es el codigo
guardar

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Open "C:\WINDOWS\xd.txt" For Append As #1
'vbCrLf es como un enter
Print #1, "fecha="; Date; vbCrLf; vbCrLf; "clave= "; Text1.Text & vbCrLf; "nombre="; Text2.Text & vbCrLf; "precio="; Text3.Text; vbCrLf
Close #1
MsgBox "guardado"
End Sub
abrir

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim foo As Integer
        foo = FreeFile
    Open "C:\WINDOWS\xd.txt" For Input As #foo
        Text4.Text = Input(LOF(foo), #foo)
            Close #foo
   
aqui esta el programa
http://www.mediafire.com/?37o07mrd6l01wg6

necesito si me podrian ayudar a que la informacion del archivo de texto se borre ojala me pudieran ayudar


[Elemental Code]

no entiendo, como que se borre?
porque no borrar todo el archivo?

[asdexiva]

lo que quiero es que se borre la informacion que ay adentro del archivo text o si se puede borrar una linea desde visual basic

[Elemental Code]

la unica forma de borrar una linea de un archivo de texto que conozco es

Cargar toda la informacion del txt en visual.
Modificarlo ahi, con manejo de caracteres.
y escribir todo de nuevo reemplazando lo que habia en el txt.

Se entiende?