Today's post certainly is not one of those egregious, eye-piercing monstrosities we see every once in a while. No, I'd classify it as elegant ... maybe even artistic. This code (from Mike Bates' colleague) achieves in six lines what would take most of us zero. Now pardon me while I continue to bask its harmonious simplicity ...

If ief Is Nothing Then 
  Set ief = New EVTLOGLib.EvtLogObj 
End If 
If Not ief Is Nothing Then Set ief = Nothing End If