Private MyCollection As Collection
 
Private Sub Command1_Click()
Dim MyObject As Variant
 
For Each MyObject In MyCollection
   If CStr(MyObject.Text) = "Hello" Then
      MsgBox ("#")
      Exit For
   End If
Next
End Sub
 
Private Sub Form_Load()
Set MyCollection = New Collection
MyCollection.Add Hi, "1"
MyCollection.Add Halöle, "2"
MyCollection.Add Hallo, "3"
End Sub