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

[Cander]

1 too many parenthesis.

[$peed & $ex]

Originally posted by Cander
1 too many parenthesis.

Which one shouldnt be there?Thx for the help man

[Cander]

farthest right one.

[MartinLiss]

Besides the parenthesis error, you also have the syntax of the Case statement wrong. It should be

[b]select case [/b]chooser
   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
end case