Maybe common knowledge for some, but I’m not a full time programmer so sometimes the smallest things make my day.

Dim myRandomNumber As Integer = rnd.Next(1000, 999999)

So, this code generates a random number between 1000 and 999999.