Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        dim name as string

        dim looop as integer

        dim age as string

        dim dte as string

        dim day as string

        dim month as string

        dim year as string

        name:

            Console.WriteLine("Enter name: ")

            name=Console.ReadLine()

            looop=0

            while looop <> len(name) 

                if IsNumeric(name.Chars(looop))= true Then 

                Console.WriteLine("Invalid name")

                GoTo name

                else 

                    looop=looop+1

                End if

            End While

        age:

            Console.WriteLine("Enter age: ")

            age=Console.ReadLine()

            if IsNumeric(age)= false Then 

                Console.WriteLine("Invalid age")

                GoTo age

            else

                if IsNumeric(age)= true and age<18 Then 

                    Console.WriteLine("Invalid age")

                    GoTo age

                End if

            End if

        dte:

            Console.WriteLine("Enter date(dd/mm/yyyy)")

            dte=Console.ReadLine()

            day=dte.Chars(0)

            day=day+dte.Chars(1)

            month=dte.Chars(3)

            month=month+dte.Chars(4)    

            year=dte.Chars(6)

            year=year+dte.Chars(7)

            year=year+dte.Chars(8)

            year=year+dte.Chars(9)

            if month=1 or 3 or 5 or 7 or 8 or 10 or 12 then

                if day<1 or 31<day then

                    Console.WriteLine("Invalid date")

                    GoTo dte

                End if

            End if

            if month= 4 or 6 or 9 or 11 then

                if day<1 or 30<day then

                    Console.WriteLine("Invalid date")

                    GoTo dte

                End if

            End if

            if month=2 then

                if (year Mod 4) = 0 then

                    if day<1 or 29<day then

                        Console.WriteLine("Invalid date")

                        GoTo dte

                    End if

                Elseif day<1 or 28<day then

                    Console.WriteLine("Invalid date")

                End if 

            End if              

            if 2016>year then

                    Console.WriteLine("Invalid date")

                    GoTo dte

            End if

        Console.WriteLine("Booked")

    End Sub

End Module