Dim RandomClass as New Random()
Dice = RandomClass.Next(1, 7)
Console.WriteLine("Count of 1s = " & Count1)
Console.WriteLine("Count of 2s = " & Count2)
Console.WriteLine("Count of 3s = " & Count3)
Console.WriteLine("Count of 4s = " & Count4)
Console.WriteLine("Count of 5s = " & Count5)
Console.WriteLine("Count of 6s = " & Count6)