se for tudo texto, cria um objeto tipo texto
dim CaixaTexto as TextBox
no evento q vc qr, vc seta qual textbox está chamando...
por exemplo
set CaixaTexto = text1
call fncGotFocus
e a função vc faz assim
sub fncGotFocus
caixatexto.backcolor = gotfocus
End sub
se é isso q vc qr, é só repetir para o lost focus...
