Dim myDSO As DSOFile.OleDocumentProperties = New DSOFile.OleDocumentProperties
myDSO.Open(oFile.FullName.ToString, False, _
  DSOFile.dsoFileOpenOptions.dsoOptionUseMBCStringsForNewSets)
strSchlagwort = myDSO.SummaryProperties.Keywords
 
 
 
For w As Integer = 0 To suchliste.Count - 1
 
If Not strSchlagwort.ToLower.Contains(suchliste(w).ToLower) Then
gefunden = False
End If
 
Wext w

 If Not strSchlagwort.ToLower.Contains(suchliste(w).ToLower) Or Not _
   oFile.Name.ToLower.Contains(suchliste(w).ToLower) Then 
gefunden = False
End If