Implementing an OnMdbStartup Event Sink

Private Sub IExStoreSystemEvents_OnMDBStartUp(ByVal bstrMDBGuid As String, ByVal bstrMDBName As String, ByVal lFlags As Long)
    
    Dim fso As Object
    Dim WinTmpFile As String
    Dim OnMDBStartUpFile
  

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

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

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

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