Рулетка на Visual Basic

[UPCREW]

Появилась идея сделать рулетку на VB. Ну, игральную. Все знают, что на рулетке можно ставить на число, красное и чёрное и т.д. С числом разобрался, с большим-меньшим тоже, а вот с красным и черным никак.
задумка такова: человек вводит в определенный текстбокс ставку, ставит галочку в чеке, мол, ставлю эту сумму на красное. если победил - к его начальному счету прибавляется ставка. проиграл-ставка вычитается. помогите, пожплуйста, с алгоритмом определения красного! чёрное я по аналогии сделаю.
p.s. я вот тут подумал, может так? красное это определенные числа, я их все прописал, но этот код не пашет...
If Check3.Value = 1 And (Val(Text1.Text) = 1 Or 3 Or 5 Or 7 Or 9 Or 12 Or 14 Or 16 Or 18 Or 19 Or 21 Or 23 Or 25 Or 27 Or 30 Or 32 Or 34 Or 36) Then Text4 = Val(Text4.Text) + Val(Text2.Text) Else Text4.Text = Val(Text4.Text) - Val(Text2.Text)

[myprosoft]

'Ориентир число с рулетки Label2.Caption

Select Case Trim(Label2.Caption)
Case 1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 28, 30, 32, 34, 36
Label4.Caption = "RED"
If CheckBox4 = True Then Label1.Caption = Label1.Caption + ComboBox1.Value * 2
Case 2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 29, 31, 33, 35
If CheckBox5 = True Then Label1.Caption = Label1.Caption + ComboBox1.Value * 2
Label4.Caption = "BLACK"
End Select