Quando o TextBox ganha foco (GotFocus), ele altera a cor do texto. Quando perde o foco (LostFocus), ele restaura a cor do texto.
'Quando o cursor se move para o TextBox, o texto fica em vermelho
SubTexto Privado1_GotFocus()
Text1.ForeColor = vbRed
Finalizar sub
'Quando o cursor sai do TextBox, o texto fica preto
SubTexto Privado1_LostFocus()
Text1.ForeColor = vbBlack
Finalizar sub
O código acima só precisa alterar Text1.ForeColor para Text1.BackColor para alterar a cor de fundo do TextBox.