Imports System

Public Module Module1

    Public Sub Main()

        dim gamestart as string

            Console.WriteLine("Do you want to roll the dice?")

            gamestart = console.ReadLine()

        if gamestart = "y" then

                        dim randomcomputer as integer

            dim rollplayer as integer 

            dim randomclass as new Random()

            rollplayer = randomclass.next(1,21)

                        randomcomputer = randomclass.Next(1,21)

​

    Console.WriteLine("The computers number is " & randomcomputer)

    console.WriteLine("Your number is " & rollplayer)

else

 console.WriteLine("Then why did you load this program?")

    end if

    End Sub

End Module