I have looked at Select Case and come up with this
Private Sub Form_Current()
Dim lngOrange As Long, lngPink As Long, lngYellow As Long, lngGreen As Long
Dim lngGrey As Long, lngRed As Long, lngPurple As Long, lngBeige As Long
lngOrange = RGB(255, 192, 0)
lngPink = RGB(255, 153, 204)
lngYellow...