Imports System

Public Module Module1

    Public Sub Main()

        dim Firstvalue, Secondvalue, answer as double

        dim operation as string

        Console.WriteLine("Select an operation you want")

        Console.WriteLine("Addition")

        Console.WriteLine("Subtraction")

        Console.WriteLine("Multiplication")

        Console.WriteLine("Division")

        operation = Console.Readline()

        Console.WriteLine("Enter the first value you want to calculate")

        Firstvalue = Console.ReadLine()

        Console.WriteLine("Enter the second value you want to calculate")

        Secondvalue = Console.ReadLine()

        Select case operation

        case "Addition"

            answer = Firstvalue + Secondvalue

            Console.WriteLine("The Answer Of Your Equation"&answer)

        case "Subtraction"

            answer = Firstvalue - Secondvalue

            Console.WriteLine("The Answer Of Your Equation"&answer)

        case "Multiplication"

            answer = Firstvalue * Secondvalue

            Console.WriteLine("The Answer Of Your Equation"&answer)

        case "Division"

            answer = Firstvalue / Secondvalue

            Console.WriteLine("The Answer Of Your Equation"&answer)

        end select

    End Sub

End Module