Random

Dim rndnumber As Random 
Dim number As Integer 
rndnumber = New Random 
number = rndnumber.Next(1, 1001) 
TextBox1.Text = number.ToString