For Each ocajadetexto In Me.Controls If ocajadetexto Is TextBox Then If ocajadetexto.text = etiqueta1.Text Then cuenta += 1 Endif Next