Imports System

Public Module Module1

    Public Sub Main()

        dim choice as string 'Declaring a string

        dim int_num1,int_num2,result as Integer 'Declaring Integers

        Console.WriteLine("Enter First Number : ") 'Asking user for first number

        int_num1=Console.ReadLine() 'User inputs number

        Console.WriteLine("Enter Second Number : ") 'Asking user for second number

        int_num2=Console.ReadLine() 'User inputs second number

        'Displaying Option Menu 

        Console.WriteLine("What would you like to do with these numbers?")

        Console.WriteLine("1. Add") 

        Console.WriteLine("2. Subtract")

        Console.WriteLine("3. Multiply")

        Console.WriteLine("4. Divide")

        Console.WriteLine("Enter choice: ")

        choice=Console.ReadLine()

        if choice=1 then 

            result =int_num1 + int_num2 'If the choice is 1 the two numbers inputed at the beginning will be added

        Console.WriteLine("The sum of the two numbers is: " &(result))

        else if choice=2 then

                result =int_num1 - int_num2 'If the choice is 2 the two numbers inputed at the beginning will be subtracted

        Console.WriteLine("The difference of the two numbers is: " &(result))

            else if choice=3 then

                    result =int_num1 * int_num2 'If the choice is 3 the two numbers inputed at the beginning will be multiplied

        Console.WriteLine("The product of the two numbers is: " &(result))

                else if choice=4 then

                        result =int_num1/int_num2 'If the choice is 4 the two numbers inputed at the beginning will be divided

        Console.WriteLine("The division of the two numbers is: " &(result))

                    else

                        Console.WriteLine("Error") 'If the number inputed on the option menu is not 1 - 4 it will display an error message

                    End if

    End Sub

End Module