Option Explicit
    Public objExcel As New Excel.Application
    Dim WithEvents CounterWatch As clsExcelBeforeClose
 
Private Sub Form_Load()
    Set CounterWatch = New clsExcelBeforeClose
    CounterWatch.Test
End Sub
 
Private Sub CounterWatch_WorkbookBeforeClose(Anzahl As Integer)
    Form1.Text1.Text = Anzahl
End Sub

Option Explicit
    Public WithEvents objApp As Excel.Application
    Public Event WorkbookBeforeClose(Anzahl As Integer)
 
Sub Test()
    Set objApp = New Excel.Application
    objApp.Visible = True
    objApp.Workbooks.Add
End Sub
 
Private Sub objApp_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As _
  Boolean)
    RaiseEvent WorkbookBeforeClose(Windows.Count)
    MsgBox "Ne ne Du, Excel beende ich nicht :-p"
    Cancel = True
End Sub