Private Sub Worker_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
 
   Dim cls As New clsSuche
   clsSuche.Suchen (txtPfad.Text, txtDatei.Text)
   e.Result = .Resultat
End Sub
 
Private Sub Worker_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
  Worker.RunWorkerCompleted
 
   dgvResultat.DataSource = e.Result
End Sub