c'è un altro modo invece di usare una lunga funzione devi gestire l'evento form_queryunload ricordandto di ipostare cancel=true

esempio (invece di chiudersi manda un msgbox

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel = true
msgbox "ciao"
end sub