Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim name as string

        dim class1 as boolean

        dim class2 as boolean

        dim class3 as boolean

        class1 = false

        class2 = false

        class3 = false

        Console.WriteLine("Please Enter Your Name to Start The Game")

        name = console.readline()

        console.WriteLine("Hello " & name & "!")

        console.WriteLine("Press Enter to start!")

        console.ReadLine()

        console.writeline("Welcome to Dragonstone, to pick your class please roll a dice and enter the number rolled")

        dim number as integer

        number = console.ReadLine()

        if number = 1 or number = 2 then

            console.WriteLine("You are a Wizard!")

            class1 = true

        elseif number = 3 or number = 4 then

            console.WriteLine("You are a Warrior!")

            class2 = true

        else if number = 5 or number = 6

            console.WriteLine("You are an Elf!")

            class3 = true

        end if

​

        console.WriteLine("Roll the Dice again now to decide your stats!")

    End Sub

End Module

​