se vc fizer um array dos textboxes creio q não precisa fazer um a um
Senão vc vai ter q fazer um a um... ou ao menos faça uma rotina q vc coloca no evento gotfocus...já q vai colocar um a um só copiar/colar.

coloca isso no gotfocus de cada text:

Call P_corTexto(Me, NomeTextBox)

Depois no módulo

Public sub P_corTexto(byval frm as Form,byval Nometxt as string )
dim objtxt as object

for each objtxt in frm.controls
 if typeof objtxt is TextBox then
  if objtxt.name = Nometxt then
   objtxt.forecolor = vbBlue
  else
   objtxt.forecolor = vbBLack
  endif
 endif
next
End Sub

Nem testei...mas tentae