Dim n As Integer
 
For n = 0 To Ubound(strArray)
  If (InStr(strArray(n), "suchtext") > 0 Then
    MsgBox "Gefunden im Element: " & Cstr(n)
    Exit For
  End If
Next n

Dim n As Integer
Dim strSuch As String
 
strSuch = "suchtext alles klein"
 
For n = 0 To Ubound(strArray)
  If (InStr(LCase$(strArray(n)), strSuch) > 0 Then
    MsgBox "Gefunden im Element: " & Cstr(n)
    Exit For
  End If
Next n

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de