Ciao, devo scrivere una routine che comprima un file, e al termine della compressione, il file che è stato compresso deve essere killato. il codice che uso funziona in maniera asincrona quindi non riesco a capire quando finisce la compressione (se non a video) per poter eliminare il file...

questo è il codice:
codice:
Private Sub ZIPFile (ByVal sFileToZip as string, byval sZippedFilename as string)
        dim oApp as Object

Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(sZippedFilename).CopyHere sFileToZip 'Aggiungi all'archivio già esistente sZippedFilename il file sFileToZip
<codice per aspettare la fine della compressione> 'Qui vorrei una mano per aspettare il completamento dell'operazione di sopra
kill sFileToZip
Set oApp=Nothing
End Sub
grazie in anticipo