Private Sub cmdSearch_Click()
 
TempGrid.Rows = MSFlexGrid1.Rows
 
Dim sEntrys() As String
 
For i = 1 To MSFlexGrid1.Rows - 1
  Dim lBegPos As Long
 
    ' Gesamten Text durchsuchen
    lBegPos = 0
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = i
    lPos = TextSearch(MSFlexGrid1.Text, txtSearch.Text)
 
If lPos > 0 Then
MSFlexGrid1.Col = 0
TempGrid.Col = 0
MSFlexGrid1.Row = i
TempGrid.Row = i
TempGrid.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 1
TempGrid.Col = 1
TempGrid.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
TempGrid.Col = 2
TempGrid.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 3
TempGrid.Col = 3
TempGrid.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 4
TempGrid.Col = 4
TempGrid.Text = MSFlexGrid1.Text
SearchURLs(TempGrid.Row + 1) = URLs(i + 1)
End If
MsgBox (lPos)
Next i
End Sub

Public Function TextSearch(ByVal strText As String, _
  ByVal strSuch As String, Optional ByVal lBegPos As Long = 1) As Long
 
  If lPos < 1 Then lPos = 1
 
    lPos = InStr(1, LCase$(strText), LCase$(strSuch))
 
End Function