Imports System

Public Module Module1

    Public Sub Main()

        Dim choice, name as String

        Dim age, num1, num2 as Integer

        Console.WriteLine("Please enter your name:")

        name = Console.ReadLine()

        Console.WriteLine("Please enter your age:")

        age = Console.ReadLine()

       if age < 14

            Console.WriteLine("OH NO! Your age must be 14 and above to access the program!")

            end if 

        Console.WriteLine("Please enter the value of num1:")

        num1 = Console.ReadLine()

        Console.WriteLine("Please enter the value of num2:")

        num2 = Console.ReadLine()

        Console.WriteLine("Please enter your choice: DIV or MUL")

        choice = Console.Readline()

        If choice = "DIV"

            Console.WriteLine("The quotient of the 2 variables is " & num1/num2)

        else if choice = "MUL"

                Console.WriteLine("The product of the 2 variables is " & num1*num2)

            end if 

    End Sub

End Module