Dim a(1 To 5) As String
    a(1) = "Null"
    a(2) = "Eins"
    a(3) = "Zwei"
    a(4) = "Drei"
    a(5) = "Vier"
    MsgBox arrFindString(a, "Zwei", "=", 2, UBound(a), 0)

Public Declare Function arrFindString Lib "vbarchiv.dll" (ByRef Arr() As _
  String, ByVal pSearch As String, ByVal sOperation As String, ByVal nStart As _
  Long, ByVal nEnd As Long, ByVal bUCase As Byte) As Long

Public Function Optimize(sArray() As String, _
    Optional ByVal sSerachFor As String, _
    Optional ByVal nStart As Variant, _
    Optional ByVal nEnd As Variant) As Long
 
' Sucht zur Zeit nur doppelte Einträge
Dim i As Long
Dim Zeile As Long
Dim CountBegriff As Integer
Dim SuchBegriff As String
Dim LastBegriff As String
Dim LastZeile As Long
 
 
s_txt.Text = ""
 
For i = 1 To EndZeile
    SuchBegriff = flex_data(1).Text(i, 2)
    Zeile = 1 ' Auf aunfang des Grids setzen
    CountBegriff = 0 ' Gefundene Begriffe auf 0
    If LastBegriff = SuchBegriff Then
        Zeile = -1
    End If
 
    Do Until Zeile = -1
 
        'Zeile = flex_data(1).FindItem(SuchBegriff, 2, Zeile, True)
 
        ' Mit InArray Funktion:
        'Zeile = InArray(FindList, SuchBegriff, Zeile)
 
        'arrFindString Funktion:
        Zeile = arrFindString(FindList(), SuchBegriff, "=", Zeile, EndZeile, 1)
        MsgBox ("Gesuchter Begriff: " & SuchBegriff & " Vergleichender String:" & _
          "" & FindList(i) & " Resultat: " & Zeile)
 
 
 
            If Zeile <> -1 Then
                CountBegriff = CountBegriff + 1
                    If CountBegriff > 1 Then ' Wenn der Begriff öfters als 
                    ' einmal auftaucht
                        If CountBegriff = 2 Then
                            flex_data(2).AddItem (vbTab & SuchBegriff & vbTab & _
                              "" & vbTab & flex_data(1).Text(Zeile, 3) & vbTab _
                              & LastZeile)
                            flex_data(2).AddItem (vbTab & "--->" & vbTab & _
                            flex_data(1).Text(Zeile, 2) & vbTab & flex_data( _
                            1).Text(Zeile, 3) & vbTab & Zeile)
                        Else
                            flex_data(2).AddItem (vbTab & "--->" & vbTab & _
                              flex_data(1).Text(Zeile, 2) & vbTab & flex_data( _
                              1).Text(Zeile, 3) & vbTab & Zeile)
                        End If
 
                    Else
                        'flex_data(2).AddItem (SuchBegriff)
                         LastZeile = Zeile
 
                    End If
                    nCount = nCount + 1
                    If nCount Mod 50 = 0 Then
                        DoEvents
                        nCount = 0
                    End If
 
                Zeile = Zeile + 1
                LastBegriff = SuchBegriff
                If Abbruch = True Then
                    Exit Function
 
                End If
 
            End If
 
    Loop
 
    If Abbruch = True Then
        Exit Function
    End If
 
 
    nCount = nCount + 1
    If nCount Mod 50 = 0 Then
        DoEvents
        nCount = 0
    End If
s_txt.Text = i
 
Next i
 
 
cmd_delDoppelte.Enabled = True
 
 
End Function