[Resolvido]Cores em VBA com Condicional

Boa noite,

Uso muito a Formatação Condicional, mas ela só tem apenas 3 critérios.
Preciso saber como posso associar as cores com condição via VBA.

Esquema: pela formatação condicional:

Se o valor da "Caixa" de texto for igual a 1 - Que fique Vermelho (Prioridade Alta)
Se o valor da "Caixa" de texto for igual a 2 - Que fique Verde (Prioridade Média)
Se o valor da "Caixa" de texto for igual a 3 - Que fique Amarelo (Prioridade Baixa)
Se o valor da "Caixa" de texto for igual a 4 - Que fique Roxo (Prioridade Zero) - Este ponto que está sendo o meu problema.

Olá, seja mais específico, qual o nome do campo com o critério, ou seja, onde ficará, 1...4 e o nome do campo que receberá as cores, essas cores serão aplicadas no texto ou no fundo?

O nome do campo é "prioridade" se tiver o valor "1" que seja pintado de vermelho... valor 2 pinte de verde....valor 3 pinte de amarelo....valor 4 pinte de roxo.

É só colocar no evento ao pintar do detalhe do formulário:

If Me.prioridade= 1 Then
prioridade.BackColor = vbRed
ElseIf Me.prioridade= 2 Then
prioridade.BackColor = RGB(61, 145, 64)
ElseIf Me.prioridade= 3 Then
prioridade.BackColor = RGB(238, 238, 0)
ElseIf Me.prioridade= 4 Then
prioridade.BackColor = RGB(139, 34, 82)
Else
prioridade.BackColor = vbWhite
End If

"Meu caro mestre, as cores do "fundo" deu certo como disse. Agora estou com o problemas de "sumir" com os números. Deixá-los transparentes seria a solução, mas não me abre a opção transparente. Tem como fazer por VBA?

Print em anexo.

Não entendi, sumir com os números? Deixá-los transparentes? seja mais claro.

Perdão pela expressão. Deixá-los transparentes de modo que só apareça a cor de fundo na caixa de texto.

vc diz não mostrar os números e sim só os quadros com as cores?

sim exatamente isso.

É só colocar a cor do texto também da mesma cor do fundo, o código muda para:
If Me. prioridade= 1 Then
prioridade.BackColor = vbRed
prioridade.ForeColor = vbRed
ElseIf Me. prioridade= 2 Then
prioridade.BackColor = RGB(61, 145, 64)
prioridade.ForeColor = RGB(61, 145, 64)
ElseIf Me. prioridade= 3 Then
prioridade.BackColor = RGB(238, 238, 0)
prioridade.ForeColor = RGB(238, 238, 0)
ElseIf Me. prioridade= 4 Then
prioridade.BackColor = RGB(139, 34, 82)
prioridade.ForeColor = RGB(139, 34, 82)
Else
prioridade.BackColor = vbWhite
prioridade.ForeColor = vbBlack
End If.

Meu amigo. Tu é fera mesmo. Obrigado por sua preciosa ajuda. Muito aprendizado na lição de hoje. Super obrigado. Deu certíssimo.

Está faltando marcar o tópico como resolvido

Valeu!