(...)
 
    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(h) Then
                'Gesuchter Wort Wert muss weiter vorne im Array sein
                iMax = iPos
            ElseIf suchkrit > dsdb(h) Then
                'Gesuchtes Wort Wert muss weiter hinten im Array sein
                iMin = iPos
            Else
                gefunden = 1
            End If
            iPos = iMin + (iMax - iMin) / 2
        Wend
        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
            Open txtausgabe.Text For Output As #1
                Print #1, suchkrit
            Close #1
        End If
        ProgressBar1.Value = i
    Next i
 
   (...)