Rnd failing me in a For...Loop, Ideas?

[kruze]

Can anyone tell me why the output from "message" is always in Uppercase although the random number is being generated within the FOR..LOOP?

For i = 0 To StrLength(txtMessage.Text)-1
   rand = Rnd (0,1)
   If rand = 0 Then char = StrToUpper (StrAt(txtMessage.Text,i))
   If rand = 1 Then char = StrToLower (StrAt(txtMessage.Text,i)) 
   message = message & char
Next

 

[Erel]

The maximum value is excluded.
You should use Rnd(0, 2)

 

[kruze]

I should also properly read the CHM in more detail rather than presuming the syntax. Thanks for the swift reply