[Resolvido]Formatação do TextBox por VB

Olá pessoal!
Será que podem me ajudar com esta formatação em VB?

Eu tenho este caso num TextBox NãoAcoplado chamado txtSituação:
=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))

E não estou conseguindo criar uma formatação em VB para mudar de cor, conforme o caso Venceu ontem/Vence hoje/Vence amanhã/Deve

Private Sub Form_Current()
Select Case Situação
Case "DataS", "ConsultaServiços"

=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))

If [txtDataS] = "Venceu ontem" Then
Me.txtSituação.ForeColor = vbRed
ElseIf [txtDataS] = "Vence hoje" Then
Me.txtSituação.ForeColor = vbYellow
ElseIf [txtDataS] = "Vence amanhã" Then
Me.txtSituação.ForeColor = vbGreen
ElseIf [txtDataS] = "Deve" Then
Me.txtSituação.ForeColor = vbBlack
End If
End Select
End Sub

Desde já, eu agradeço!
Paulo César

infosoft

pq não usa formatação condicional?

Utilize no evento ao pintar;

Private Sub Detalhe_Paint()
Select Case txtDataS
Case "Venceu ontem"
Me.txtSituação.ForeColor = vbRed
Case "Vence hoje"
Me.txtSituação.ForeColor = vbYellow
Case "Vence amanhã"
Me.txtSituação.ForeColor = vbGreen
Case "Deve"
Me.txtSituação.ForeColor = vbBlack
End Select
End Sub

Olá gente, muito obrigado!

Fernando, a Formatação condicional faz o campo ficar tremendo, pode ser que, no meu caso, são mais de cem dados visualizados numa tela (Form Contínuo) só.

JPaulo, esqueci de mencionar que o Access é 2003. (desculpe-me)

Ok entendi.

Resolvido!
Era minha tela (monitor) que tremia.
Usei cores com os códigos, por exemplo: RGB(0, 0, 0) em vez de vbBlack