[access vba] evitare codice ripetitivo colore bordo caselle di testo

[john_revelator]

Ciao a tutti. Vorrei che il bordo delle caselle di testo della mia maschera diventasse rosso quando il campo ha il focus. So come fare per la singola etichetta

Private Sub mia_etichetta_GotFocus()
Me.mia_etichetta.BorderColor = 255
End Sub

Private Sub mia_etichetta_LostFocus()
Me.mia_etichetta.BorderColor = 0
End Sub

ma mi chiedevo se esistesse un modo per automatizzare il tutto senza essere costretto a ripetere il codice per tot caselle di testo.
Grazie e buona notte.