Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Dim myvar As Integer 

    Dim numberOfSides As Integer

    Public Sub Main()

        Console.WriteLine("Welcome to the Dice Random Number Genorator")

        Console.WriteLine("Enter how many sides your dice has")

        numberOfSides = Console.ReadLine

        If numberOfSides = 6 OR numberOfSides = 8 OR numberOfSides = 10 OR numberOfSides = 12 Then

            numberOfSides = numberOfSides - 1

        Randomize()

            myvar = CInt((numberOfSides* Rnd()) + 1)

        Console.WriteLine("Your random dice number is " & myvar)

        Else

            Console.WriteLine("Please try again, choose either 6, 8,10 or 12")

        End If

        Console.ReadLine()

    End Sub

End Module