Public Property Get Item(ByVal SearchName As String, _
                         ByVal Index As Long) As VArticle
 
   If Not dgSearches.Exists(SearchName) Then _
      Exit Property
 
   With dgSearches(SearchName)
      If Index > .Count Then _
         Exit Property
 
      Set Item = (Index)
   End With
 
End Property

Wer Fehler findet darf sie behalten.