This should get you started
VB Code:
  1. Private Sub Command1_Click()

  2. Dim MyNumber As Long

  3. Randomize

  4. MyNumber = (50 * Rnd) + 1

  5. Select Case MyNumber

  6.    Case 0 To 4

  7.     'display $250.00 card

  8.    Case 5 To 9

  9.     'display $500.00 card

  10.    Case 10 To 15 'you code from here

  11.    Case 40 To 44

  12.     'bust card

  13.    Case 45 To 48

  14.     'another bust card

  15.    Case 50

  16.     'winner

  17. End Select

  18. 'question:  what happened to 49?

  19. End Sub