Imports System

​

Public Module Module1

​

    Sub Main()

        dim answer as string 

        Wizard_and_Warrior

        if Ask_Question("do you take wizard or warrior") = "wizard" then

            'wizard

            Console.WriteLine("wizard or warrior?")

            answer = Console.ReadLine()

            if answer = "wizard" then

            'wizard

            else

            'warrior

            end if

        else 

            'wizard

            Console.WriteLine("he turned you into a frog game over")

        end if  

    end sub

end module