Estructuras anidadas Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Class exercise90
    Structure person
        Public Name As String
        Public Date As dateBirth
    End Structure

    Structure dateBirth
        Public Day As Integer
        Public Month As Integer
        Public Year As Integer
    End Structure

    Private Shared Sub Main(ByVal args As String())
        Dim d As Integer = 0, m As Integer = 0, y As Integer = 0
        Dim total As Integer = 1
        Dim p As person() = New person(total - 1) {}

        For i As Integer = 0 To total
            Console.Write("Enter name: ")
            Dim Name As String = Console.ReadLine()
            Console.WriteLine()
            p(i).Name = Name
            Console.Write("Enter day: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Day = d
            Console.Write("Enter month: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Month = m
            Console.Write("Enter year: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Year = y
        Next
    End Sub
End Class