Boa noite!!

Charles, crie uma condição logica e informe o nome do Label...

Me.Label1.BackColor = RGB(255, 0, 0)

Att

Boa noite,

Sugiro incluir a seguinte linha no código que insere a expressão "CPF Inválido" (supondo que o nome do label seja "lblCPF"):

lblCPF.ForeColor = vbRed

Abraço

tentei usar as duas dicas, porém, não deu certo

'---------- Fazendo a comparação dos dvs informados -------
If d10 = DV1 And d11 = DV2 Then
    VerificarCPF = "CPF Válido"
Else
    VerificarCPF = "CPF Inválido"
    Label30.BackColor = RGB(255, 0, 0)
    'Label30.ForeColor = vbRed
End If

End Function

Bom dia!!

Poderia postar o modelo COMPACTADO?

Att

Creio que não deu certo, pois (pelo final) vc fez a alteração em uma função, a função (creio eu) não recebe a informação do lbl ou txt que origina o input, mas somente seu valor.

Entã vc deve fazer a comparação sugerida dentro do codigo do form/lbl/txt de origem

não entendi...

Boa noite!!

Charles, você está usando uma função, eu imaginei que erá uma sub-rotina.

Para mim, não parece claro o que você está tentando fazer, não sabemos com está a disposição de suas rotinas dentro do Editor.

Talvez seu arquivo modelo e compactado, serviria de auxílio, para que possa ajuda-lo
Att

Não sei se entendi corretamente, mas nesta sua Function está :

'---------- Fazendo a comparação dos dvs informados -------
If d10 = DV1 And d11 = DV2 Then 'Se d10 = DV1 e d11 = DV2 . . .
VerificarCPF = "CPF Válido" 'Armazenamos o valor "CPF Válido" a Variavel VerificarCPF
Else
VerificarCPF = "CPF Inválido" 'Se não Armazenamos o valor "CPF Inválido" a Variavel VerificarCPF
Label30.BackColor = RGB(255, 0, 0) ' Aqui formatamos a Cor de fundo o Label30
'Label30.ForeColor = vbRed ' Aqui a cor da Fonte do Label30
End If

O que falta saber para onde está indo o Valor armazenado na Variável "VerificarCPF ", ou seja se quisermos que no Label30 apareça o Texto, devemos fazer :
Label30.caption = VerificarCPF
Label30.ForeColor = vbRed

[]s