prova con questo

codice:
Dim Found, MyObject, MyCollection
Found = False      ' Inizializza la variabile.
For Each MyObject In MyCollection   ' Esegue un'iterazione in ogni elemento.
   If MyObject.Text = "Salve" Then   ' Se Text è uguale a "Salve".
      Found = True   ' Imposta Found su True.
      Exit For         ' Esce dal ciclo.
   End If
Next
però non sfrutta le matrici di controllo, bensì x ciascun controllo esegui un'operazione