Implementing an OnMdbShutdown Event Sink

[Visual Basic]
Private Sub IExStoreSystemEvents_OnMDBShutDown(ByVal bstrMDBGuid As String, ByVal lFlags As Long)

 Dim fso As Object
    Dim WinTmpFile As String
    Dim OnMDBShutDownFile
  

'log file
    WinTmpFile = Environ("SystemDrive") & "\SinkLogs\VBOnMDBShutDown.log"

'Creation & Instantiation of Objects
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set OnMDBShutDownFile = fso.OpenTextFile(WinTmpFile, 8, True)

'File ops.
    OnMDBShutDownFile.WriteLine ("[VB Event Sink]        OnMDBShutDown()")
    OnMDBShutDownFile.WriteLine ("  MDB Guid             " & bstrMDBGuid)
    OnMDBShutDownFile.WriteLine ("  Flags:               " & "0x" & Hex(lFlags))
    OnMDBShutDownFile.WriteBlankLines (1)
    OnMDBShutDownFile.Close

'Close objects and release the memory used by them
    Set fso = Nothing
    
End Sub