Hola:
Podrias crear una rutina similar a esta:
Código:
Private Sub Comprobar(Variable As String)
Dim Etiqueta As Object
For Each Etiqueta In Me
If TypeOf Etiqueta Is Label Then
If Etiqueta.Caption = Variable Then Etiqueta.ForeColor = vbBlue
End If
Next
End Sub
El Problema es que te comprueba TODOS los labels del formulario por lo que deberías idear un sistema para que te comprueba sólo los labels adecuados, y para ellos tienes muchas posibilidades, por ejemplo en el bucle puedes comprobar el valor Etiqueta.Name o Etiqueta.Tag
Puedes así crear con un Inicio de nombre igual al grupo de labels por ejemplo podrían llamarse Valor1, Valor2, Valor3,,, Valor14 o poner en el Tag de cada label el texto Valor, de este manera puedes hacer lo siguiente:
Código:
Private Sub Comprobar(Variable As String)
Dim Etiqueta As Object
For Each Etiqueta In Me
If TypeOf Etiqueta Is Label Then
If Etiqueta.Tag = "Valor" And Etiqueta.Caption = Variable Then Etiqueta.ForeColor = vbBlue
End If
Next
End Sub
Saludos y feliz año