Imports System

Public Module Module1

    Public Sub Main()

        Dim Name as String = ""

        Dim Age as Integer = 0

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

        Name = Console.ReadLine()

        'Train Wreck

        If Name = "Osvaldo" then

            Console.WriteLine("Hey " + Name)

        Else

            Console.WriteLine("Do I know you?")

        End if

        Console.WriteLine("How old are you?")

        Age = Console.ReadLine()

        If Age = "16" then

            Console.WriteLine("Thats nice")

        Else If Age > 16

                Console.WriteLine("You're old")

            Else If Age < 16

                    Console.WriteLine("You're a baby")

        End If

                Console.WriteLine("What was your name again?")

                Name = Console.ReadLine()

                Do Until Name = "Osvaldo"

                    Console.WriteLine("Lier")

                    Name = Console.ReadLine()

                Loop

                Console.WriteLine("Ohhh yeah!")

    End Sub

End Module