random code vb

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