It has a try catch block,
Here is the background worker
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
If (recurse) Then
files = My.Computer.FileSystem.FindInFiles(directory, searchText, True, FileIO.SearchOption.SearchAllSubDirectories, wildCards)
Else
files = My.Computer.FileSystem.FindInFiles(directory, searchText, True, FileIO.SearchOption.SearchTopLevelOnly, wildCards)
End If
For Each foundFile As String In files
Me.BackgroundWorker1.ReportProgress(0, foundFile)
Next
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & ex.Source, MsgBoxStyle.Information, "Exception Message")
End Try
End Sub