VB functions for determining red/black numbers on roulette wheel

Here are two simple functions for calculating if a number falls on red or black on a roulette wheel, for the perfectionists that don’t want to use odd/even.

'isRed calculates if a number falls red on a roulette wheel
Public Function isRed(ByRef n As Long) As Boolean
    Select Case n
        Case 1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36
            isRed = True
        Case Else
            isRed = False
    End Select
End Function

'isBlack calculates if a number falls black on a roulette wheel
Public Function isBlack(ByRef n As Long) As Boolean
    Select Case n
        Case 2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31, 33, 35
            isBlack = True
        Case Else
            isBlack = False
    End Select
End Function

Finishing the bezel and mounting the LCD

A small update to keep things rolling.

I finished sanding the bezel to a state I was quite happy with. The hole was then trimmed as it was slightly too big and the sides were uneven.

Pictures below just before painting.
Computersphere bezel after sanding and trimming
Computersphere bezel after sanding and trimming

First a white undercoat, 2 layers.
White undercoat applied to bezel

Coat of matt black, 2 layers.
Matt black applied to bezel

Final photos of the Videosphere shell with new bezel.
Completed Computersphere bezel
Completed Computersphere bezel

The LCD screen, after having the corners trimmed.
Trimmed LCD corners to fit in the Videosphere
Trimmed LCD corners to fit in the Videosphere

The LCD screen was glued in place, will be cleaned of glue smudges as the end.
LCD screen glued into place, inside of Videosphere
LCD screen glued into place, front of Videosphere

Next, I am looking at connecting the LCD circuitry.