Dim iMin As Long
    Dim iMax As Long
    Dim iPos As Long
 
    For i = 0 To zaehler1
        suchkrit = ddb(i)
        gefunden = 0
        iMin = LBound(dsdb)
        iMax = UBound(dsdb)
        iPos = (iMax - iMin) / 2
 
        While (Not gefunden) And Abs(iMax - iMin) > 1
            If suchkrit < dsdb(iPos) Then
                'Gesuchter Wort Wert muss weiter vorne im Array sein
                iMax = iPos
            ElseIf suchkrit > dsdb(iPos) Then
                'Gesuchtes Wort Wert muss weiter hinten im Array sein
                iMin = iPos
            Else
                gefunden = 1
                GoTo whileende
            End If
            iPos = iMin + (iMax - iMin) / 2
        Wend
whileende:
        If Not gefunden Then
            'Array an den Stellen iMin und iMax nochmal prüfen
            gefunden = (dsdb(iMin) = suchkrit) Or (dsdb(iMax) = suchkrit)
        End If
 
        If gefunden = 0 Then
 
                Print #1, suchkrit
 
        End If
 
        ProgressBar1.Value = i
    Next i
Close #1