Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Welcome to the name tester 2.0!")

        dim FirstName as STRING

        dim MiddleName as STRING

        dim LastName as STRING

            Console.WriteLine("So, let us find out what your first name is...")

        Console.WriteLine("Please enter your first name below")

        FirstName = console.ReadLine()

        Console.WriteLine("Rightyo! Let's now find out your other names")

        Console.WriteLine("Please enter any one of your nicknames or your middle name")

        MiddleName = Console.ReadLine()

        Console.WriteLine("Last but not least, let's get to know your last name")

        LastName = Console.ReadLine()

        Console.WriteLine("Is this your full name?")

        Console.WriteLine(FirstName + ("_") + MiddleName + ("_") + LastName)

        Console.WriteLine("Is this correct? Please type either yes or no underneath")

        Console.ReadLine()

​

        IF Console.ReadLine() ="yes" THEN 

            Console.WriteLine("Excellent! Thank you for texting the code out for us!")

            END IF 

                IF Console.ReadLine() ="no" THEN

            Console.WriteLine("Awww! Mind putting in the correct info for us?")

        End IF 

    End Sub

End Module