Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Beep beep boop boop. Let's calculate together!")

        Console.WriteLine("To calculate, enter first number, press enter, enter a symbol, press enter and enter second number.")

        Console.WriteLine("Symbols you can use are +, -, *, /, ^")

        Console.WriteLine("You may now begin")

        Dim first As Decimal = Console.ReadLine()

        Dim symbol = Console.ReadLine()

        Dim second As Decimal = Console.ReadLine()

        Dim answer As Decimal

        Select symbol

        Case "+"

            answer = add(first, second)

        Case "-"

            answer = subtract(first, second)

        Case "*"

            answer = multiply(first, second)

        Case "/"

            answer = divide(first, second)

        Case "^"

            answer = power(first, second)

        End Select

        Console.WriteLine("Your answer is " & answer)

    End Sub

    Function add(ByVal first As Decimal, ByVal second As Decimal) As Decimal

        Return first + second

    End Function

    Function subtract(ByVal first As Decimal, ByVal second As Decimal)

        Return first - second

    End Function

    Function multiply(ByVal first As Decimal, ByVal second As Decimal)

        Return first * second

    End Function

    Function divide(ByVal first As Decimal, ByVal second As Decimal)

        Return first / second

    End Function

    Function power(ByVal first As Decimal, ByVal second As Decimal)

        Return first^second

    End Function

End Module