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 Generator")

        Console.WriteLine("Enter how many sides your Dice has, enter 6,8,10 or 12")

        numberOfSides  = Console.ReadLine

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

        numberOfSides = numberOfSides - 1

        Randomize()

        myvar = CInt((5* 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