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"

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