Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        dim number1 as integer

        dim add as string

        dim subtract as string

        dim divide as string

        dim multiply as string

        dim answer as integer

        dim answer1 as integer

        dim answer2 as integer

        dim answer3 as integer 

        Console.Writeline("Give us a number")

        number = Console.readline()

        Console.Writeline("Give us another one")

        number1 = Console.ReadLine()

        Console.Writeline("What do you want to do with the numbers, add, subtract, divide or multiply")

        add = ("add")

        if console.readline() = add 

            answer = (number + number1)

            console.writeline(answer)   

        end if 

        subtract = ("subtract")

        if console.readline() = subtract 

            answer = (number - number1)

            console.writeline(answer)

        end if 

        multiply = ("multiply")

        if console.readline() = multiply 

            answer = (number * number1)

            console.writeline(answer)

        end if 

        divide = ("divide")

        if console.readline() = divide 

            answer = (number / number1)

            console.writeline(answer)

        end if 

    End Sub

End Module