Dumb-founded by stubborn type

None of the code in your Select/Case construct makes any sense. Your code would need to look something like this:

X% = Rand(1,5)
  Select X
    Case 1:
      ;code for X=1
    Case 2:
      ;code for X=2
    Case 3:
      ;code for X=3
    Case 4:
      ;code for X=4
    Case 5:
      ;code for X=5
  End Select