Public Function Find_CarElements( _
    ByRef rSearchPattern As String _
  ) As Collection
 
  Dim CE As cCarElement
  Dim oRegEx As RegExp
 
  Dim SearchPattern As String
 
  On Error Resume Next
 
  Set Find_CarElements = New Collection
 
  SearchPattern = Trim(rSearchPattern)
 
  Set oRegEx = New RegExp
  With oRegEx
    .Pattern = SearchPattern
    .Global = True
  End With
 
  If Len(SearchPattern) > 0 Then
 
    For Each CE In m_CarElements
      'Hier ist der Vergleich
      If oRegEx.test(CE.Name) Then
        Find_CarElements.Add CE, CE.Key
      End If
    Next CE
 
  Else 'Len(SearchPattern) = 0
    'do nothing, because an empty string was passed
  End If
 
  Set oRegEx = Nothing
 
End Function

Gruß
Dirk

--
?Get it right the first time