Imports System

Public Module Module1

    Public Sub Main()

        'defining numbers'

        Dim number1 as integer

        Dim number2 as integer

        Dim Response as string

        Console.Writeline("Enter a number")

        number1 = Console.Readline()

        Console.Writeline("Enter another number")

        number2 = Console.Readline()

        Console.Writeline("What would you like to do with these numbers? + - / *")

        Response = Console.Readline()

        Select Case Response

        Case "/"

            Console.Writeline("The answer is: " & number1 / number2)

        Case "+" 

                Console.Writeline("The answer is: " & number1 + number2)

        Case "-"

                    Console.Writeline("The answer is: " & number1 - number2)

        Case "*"

                        Console.Writeline("The answer is: " & number1 * number2)

        End Select

    End Sub

End Module