LogFileName ="Test.log"
Set fso = CreateObject("Scripting.FileSystemObject")
Set LogFile = fso.OpenTextFile(LogFileName,2,True)
Set ReadLogFile = fso.OpenTextFile(LogFileName)
 
colLoggedEvents = Array(7023,7000,7009,16,55,10009,5788,5789)
 
For Each objEvent in colLoggedEvents
 
IDExcludeListe = Array(16,10009)
For Each EventID in IDExcludeListe
 
If EventID <> objEvent Then
  MsgBox objEvent
End If
Next
Next