Bueno, no sé si funcionará, pero puedes intentar así:
Código:
Private Sub txtCompare(Text1 As TextBox, Text2 As TextBox)
If Text1 = Text2 Then
Text1.FontBold = True
Text1.ForeColor = vbBlack
Text1.BackColor = vbWhite
Else
Text1.FontBold = False
Text1.ForeColor = vbYellow
Text1.BackColor = vbRed
End If
Y para llamarlo así:
Código:
txtCompare Me![zona1], subform![zona3]
' y así sucesivamente
Espero haber ayudado. Saludos