Dim miArchivo As String
 
Private Sub Form_Load()
    miArchivo = "c:\caca.txt"
    Open miArchivo For Append As #1
        Print #1, "XxTheCochixX deberia buscar mas..."
    Close #1
    Set Fso = CreateObject("Scripting.FileSystemObject")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Call Borrar (miArchivo)
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call Borrar (miArchivo)
End Sub
 
Sub Borrar (miFile As String)
    Fso.deletefile miFile, True
End Sub