Code Problem

[$peed & $ex]

Well this is my code below. What the point of it is is to create a random code and display it in text1.

Public Sub Command1_Click()
    Text1.Text = Mixup
End Sub
 
Function Mixup () As String
Dim x as Integer
Dim chooser as Integer
 
For x = 0 to 7
 
[B]chooser = Int((3 * Rnd) + 1))
 
case select chooser[/B]
   case 1
       str = str + Chr(Int((122 * Rnd) + 90)) ' for lower case
   case 2
       str = str + Chr(Int(( 90* Rnd) + 65)) ' for upper case
   case 3
       str = str + Chr(Int((9 * Rnd) + 0)) ' for 0-9 case
[B]end case[/B]
 
Next
 
    Mixup = str
 
End Function

This is my code and the things in bold are red in vb which means theres a problem but dont know how to fix them...So any help and advice on how to fix this would be very much appreciated thx guys