Dim newRandom As New Random()
   txtRandom.Text = newRandom.Next(txtMin.Text, txtMax.Text)