Imports System

Public Module Module1

    Public Sub Main()

        Dim RandomClass As New Random()

        Dim Dice As Integer

        Dim Count1 As Integer

        Dim Count2 As Integer

        Dim Count3 As Integer

        Dim Count4 As Integer

        Dim Count5 As Integer

        Dim Count6 As Integer

        Count1 = 0

        Count2 = 0

        Count3 = 0

        Count4 = 0 

        Count5 = 0

        Count6 = 0

        For i = 1 To 120000

        Dice = randomClass.next(1,7) 

    Select case Dice

    Case is = 1

            Count1 = Count1 + 1

    Case is = 2 

            Count2 = Count2 + 1

    Case is = 3 

            Count3 = Count3 + 1 

    Case is = 4 

            Count4 = Count4 + 1

    Case is = 5 

            Count5 = Count5 + 1 

    case else 

            Count6 = Count6 + 1 

        End Select

Next

    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)

    End Sub

End Module