[VB6] Evitare la chiusura del programma

[x69asterix]

ciao a tutti,
dovrei evitare la chiusura del programma con questa condizione, qualcuno mi può aiutare?

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists("a:\lis.txt")) Then
     MsgBox "Attenzione Carmen rimuovere il floppy di sicurezza", vbCritical, "Sicurezza"
     '................... mi manca qualcosa  :dhò: 
     Else
     MsgBox "Il file di Sicurezza non è presente uscita sicura.", vbInformation
     Unload Me
  End If
End Sub