Here is a simple way to generate Random Integers in VB.NET
Dim iRnd As Integer = CInt(Math.Ceiling(Rnd() * n))
Where n is the max number
eg. Dim iRnd As Integer = CInt(Math.Ceiling(Rnd() * 10))
will generate random numbers between 1 and 10