Imports System

Public Module Module1

    Public Sub Main()

        Dim Number as Integer

        Dim Number2 as Integer

        Dim Sign as String

        Dim Answer as Integer

        Dim Answer1 as Integer

        Dim Answer2 as Integer

        Dim Answer3 as Integer

        Console.WriteLine("What's your favourite Number")

        Number=Console.ReadLine()

        Console.WriteLine("What's your second favourite Number" )

        Number2=Console.ReadLine()

        Console.WriteLine("What do you want to do with these Numbers? For example +,-,*,/")

        Sign = Console.ReadLine()

        If Sign = "+"

            Answer = Number + Number2

            Console.WriteLine("The Answer is :"& Answer)

        ElseIf Sign = "-"

            Answer1 = Number - Number2

            Console.WriteLine("The Answer is :"& Answer1)

        ElseIf Sign = "*"

            Answer2 = Number * Number2

            Console.WriteLine("The Answer is :"& Answer2)

        ElseIf Sign = "/"

            Answer3 = Number / Number2

            Console.WriteLine("The Answer is :"& Answer3)

        End If

    End Sub

End Module