Implementing an OnSyncDelete Event Sink

Private Sub IExStoreSyncEvents_OnSyncDelete(ByVal pEventInfo As Exoledb.IExStoreEventInfo, ByVal bstrURLItem As String, ByVal lFlags As Long)

 Dim fso As Object
    Dim WinTmpFile As String
    Dim OnSyncDeleteFile
        
'log file
    WinTmpFile = Environ("SystemDrive") & "\SinkLogs\VBOnSyncDelete.log"

'Creation & Instantiation of Objects and setting their props
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set OnSyncDeleteFile = fso.OpenTextFile(WinTmpFile, 8, True)
   
'File ops.
    OnSyncDeleteFile.WriteLine ("[VB Event Sink]      OnSyncDelete()")
    OnSyncDeleteFile.WriteLine ("  URL Src  Item:     " & bstrURLItem)
    OnSyncDeleteFile.WriteLine ("  Flags:             " & "0x" & Hex(lFlags))
    
    OnSyncDeleteFile.WriteBlankLines (1)

'Close objects and release the memory used by them
    OnSyncDeleteFile.Close
    Set fso = Nothing

End Sub