Dim RandomClass As New Random()
Dim Count1 As Integer = 0
Dim Count2 As Integer = 0
Dim Count3 As Integer = 0
Dim Count4 As Integer = 0
Dim Count5 As Integer = 0
Dim Count6 As Integer = 0
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)