If Len(strSchlagwort) > 0 Then
                            For w As Integer = 0 To suchliste.Count - 1
                                If Not strSchlagwort.ToLower.Contains(suchliste( _
                                  w).ToLower) Then
                                    gefunden = False
                                End If
                            Next
                        Else
                            gefunden = False
                        End If
 
 
                        If gefunden = False Then
                            For w As Integer = 0 To suchliste.Count - 1
                                If Not oFile.Name.ToLower.Contains(suchliste( _
                                  w).ToLower) Then
                                    gefunden = False
                                    Exit For
                                Else
                                    gefunden = True
                                End If
                            Next
                        End If