You are not generating a random number in the right way. Remove your Randomize and Rnd statements and do the following:

vb Code:
  1. Dim rnd As New Random()
  2.        
  3. Dim randomNumber as Integer = rnd.Next()

By the way, does your random number need to be between a certain range?