Funktioner i VBA: en nemmere måde?

Jeg har 24 kontroller på min formular, som skal skifte farve, når de hhv. får focus og taber focus. Det er lidt omstændigt at lave funktioner for alle kontrollerne a la:

Private Sub Afkrydsningsfelt113_LostFocus()
  Afkrydsningsfelt113.BorderColor = 16777215
End Sub

Private Sub Afkrydsningsfelt35_GotFocus()
  Afkrydsningsfelt35.BorderColor = 65280
End Sub

Er der ikke en nemmere måde at gøre dette på?
Private Sub Afkrydsningsfelt113_LostFocus()
  SkiftFarve(me, Farve)
End Sub

Private Sub SkiftFarve(Kontrol As "et eller andet", Farve As Integer)
  Kontrol.BorderColor = Farve
End Sub

Noget der henad.....