Buenas noches esperando me puedan ayudar

Tengo un cuestionario el cual con tiene respuestas a b c d y se selecciona la misma mediante un color con la siguiente funcion se cual es la que coincide en el color y solo la cuenta.

Public Function CONTCOLORCELDA(rangoacontar, celdaejemplo)

Dim celda
For Each celda In rangoacontar
If celda.Font.ColorIndex = celdaejemplo.Font.ColorIndex Then j = j + 1
Next
CONTCOLORCELDA = j
End Function

Toma el color de la fuente de la celda ejemplo , y cuenta los que coinciden con el en el rango determinado.

Ejemplo:

1.- ¿cual es la funcion para obtener parte de un texto?

a) Concatenar <=color rojo

b) Largo <=color rojo

c) Extraer <= color azul

d) Si <= color rojo

En este caso con la formula de arriba si la celda de ejemplo es azul me diria que solo hay 1 y lo que necesito es que en vez de decir que hay solo una, me de el valor de los 2 primeros digitos que es este caso seria la letra c)

Es decir si la respuestas correcta es la que esta en color azul entonces escribo la letra c) y asi sucesivamente solo puede ser una respuesta de las 4

Espero haberme explicado, de antemano agradezco su atención Saludos