I think you have your < and > the wrong way round... it shouldn't be possible for numbershow to be less than -17 AND more than 17 simultaneously !!!
How about
... and have you thought about what happens when numbershow = 18 ??
How about
if numberroll = 0 then Select true case ( numbershow > -17 And numbershow < 17) wheelnumber = 3 case ( numbershow > 18 And numbershow < 53) wheelnumber = 2 ... etc End Select EndIf
... and have you thought about what happens when numbershow = 18 ??