Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        Dim name As String = "David"

        If name = "David" Then

            Console.WriteLine("We share the same name!")

        Else

            Console.WriteLine("That is a pretty cool name.")

        End If

​

        Dim age As Integer = 22

        If age < 0 Then

            Console.WriteLine("Invalid age.")

        ElseIf age < 1 Then

            Console.WriteLine("You're an infant.")

        ElseIf age < 5 Then

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

        ElseIf age < 12 Then

            Console.WriteLine("You're an adolecent.")

        ElseIf age < 20 Then

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

        Else

            Console.WriteLine("You're an adult.")

        End If

    End Sub

End Module