Imports System

Public Module Module1

    Public Sub Main()

        Dim Number as Integer

        Dim Number1 as Integer

        Dim Answer as String

        Dim sum as Integer

        Console.WriteLine("What is the first of your two favourite numbers?")

        Number = Console.ReadLine()

        Console.WriteLine("And the second?")

        Number1 = Console.ReadLine()

        Console.WriteLine("Would you like to add, subtract, multiply or divide?")

        Answer = Console.ReadLine()

        If Answer = "add" Then

            sum = Number + Number1

            Console.WriteLine("The final result of the calculation of your two numbers is " & sum)

        End If

        If Answer = "subtract" Then

                sum =  Number - Number1

            Console.WriteLine("The final result of the calculation of your two numbers is " & sum)

        End If

        If Answer = "multiply" Then

                    sum = Number * Number1

            Console.WriteLine("The final result of the calculation of your two numbers is " & sum)

        End If

        If Answer = "divide"

                        sum = Number / Number1

            Console.WriteLine("The final result of the calculation of your two numbers is " & sum)

        End If

    End Sub

End Module

​