Ajuda con errores no controlados

El control de errores debes hacerlo usando on error goto ...

Un ejemplo:

Private Sub MiSub

On Error Goto Err

.

exit Sub
Err:
' Aquí haces lo que sea (borrar ficheros, ...)


End Sub


"Salva" escribió en el mensaje
news:0bf901c3574f$74e84d80$
Hola de nuevo,

tengo un problema cuando en mi aplicación se genera un
error no controlado, puesto termina la ejecución de
repente. El problema es que a veces quedan archivos sin
eliminar en una carpeta temporal que utilizo.

¿Hay algun método que te permite ejecutar código después
de un error no controlado? Me gustaría que cuando se
dispara un error no controlado, se eliminaran los
archivos existentes en la carpeta antes de que finalize
la ejecución.

Muchas gracias