Imports System

Public Module Module1

    Public Sub Main()

        Dim Num1 As Integer

        Dim Num2 As Integer

        Dim PM As String

        Dim Answer As Integer

        Dim Name As String

        Dim Age As Integer

        Dim Place As String

        Console.WriteLine("Hello!")

        Console.WriteLine("What is your name?")

        Name = (console.readline())

        Console.WriteLine("Hi " + Name + ", How old are you?")

        Age = Console.ReadLine()

        If Age > 100 Or Age < 0 Then

            Do 

            Console.WriteLine("Lier, really, how old are you?")

            Age = Console.ReadLine()

            Loop Until Age < 100 And Age > 0

        End If

        Console.WriteLine("Where are you from?")

        Place = Console.ReadLine()

        Console.WriteLine(Name & (" Enter a number"))

        Num1 = Console.ReadLine()

        Console.WriteLine("Enter + or -")

        PM = Console.ReadLine()

        Console.WriteLine("Enter a number")

        Num2 = Console.ReadLine()

        If PM = "+" Then

            Answer = Num1 + Num2

        Elseif PM = "-" Then

            Answer = Num1 - Num2

        End If

        Console.WriteLine("The Answer of " &   Num1 & PM & Num2 &" is "& " = " & Answer)

    End Sub

End Module