random number generator set for 1-4. but never picks 4

Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 4)
Form2.Label2.Text = number.ToString

random number generator. should pick numbers between 1 and 4. dont care if numbers repeat. just ran this 20 times and it never pick the number 4. i retried another 20 and still no number 4. will randomly pick between 1 and 3. any ideas?