timeout di una funzione

[Kahm]

salve a tutti
avendo una funzione che utilizza excel:

  Dim cartExcel As Excel.Workbook
        Dim appExcel As New Excel.Application
        cartExcel = appExcel.Workbooks.Open(NomeFIle)    

'................elaborazione
      
            cartExcel.Close() 
            cartExcel = Nothing

            appExcel.Quit()
            appExcel = Nothing

quando ci sono errori nel file excel, tipo riferimenti a funzioni che non esistono ecc
nella parte dicodice : cartExcel.Close()
ci mette tantissimo tempo a terminare
ho provato a mettrere anche un gestore try...catch, ma non basta in quanto non restituisce errore,infatti dopo 5 minuti da scriptTimeout

come posso gestire il close di excel tramite un timeout?
grazie