Private MyCollection As Collection
 
Private Sub Command1_Click()
   Dim x As Long
 
   For x = 1 To MyCollection.Count
      If CStr(MyCollection(x)) = "Hallo" Then
         MsgBox "Found in Item " & Format(x)
      End If
   Next x
 
End Sub
 
Private Sub Form_Load()
   Set MyCollection = New Collection
   MyCollection.Add "Hi"
   MyCollection.Add "Halöle"
   MyCollection.Add "Hallo"
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control