VS 2010 Lambda Expression, Locking, Queuing

Public Sub StartInitialization()
fLogWatch = New FileSystemWatcher
 
        With fLogWatch
            .BeginInit()
            .Path = _fLogPath
            .IncludeSubdirectories = False
            .EnableRaisingEvents = True
            .EndInit()
            _serviceStatus.currentState = Fix(State.SERVICE_RUNNING)
            SetServiceStatus(handle, _serviceStatus)
        End With
 
AddHandler fLogWatch.Changed, New FileSystemEventHandler(AddressOf Log_Changed)
 
End Sub
 
 
Private Sub Log_Changed(ByVal obj As Object, ByVal e As FileSystemEventArgs)
        Dim strToFind As String = "CheckForAttachments  Attachment Count:"
        Dim midStrToFind As Integer = 0
        Dim resultStrToFind As String
 
        If e.FullPath = "C:\Users\xxxx\Documents\Sperry Software\SperrySoftwareLog.txt" Then
            Dim llist = File.ReadAllLines(e.FullPath).[Select](Function(line) line.Split(": "))
 
 
 
            For Each l In llist
                Console.WriteLine(l.ToString)
            Next
        End If
 
        'Using readLog As New StreamReader(e.FullPath, System.Text.Encoding.Default, False, 4096)
 
        '    Dim input = readLog.ReadToEnd
        '    If input.Contains("CheckForAttachments Attachment Count:") Then
        '        resultStrToFind= Mid(strToFind,input.
        '    End If
 
        'End Using
 
    End Sub