lidt? hjælp med kode [begynder]

jeg har lidt problemer med min kode her:

Imports System, System.Console
Module Module1
    Dim temp(2) As String
    Dim data As New Collections.ArrayList
    Dim counter As Byte
    Sub Main()
        For counter = 1 To 5
        WriteLine("Enter your first-name")
        temp(0) = ReadLine()
        WriteLine("Enter your last-name")
        temp(1) = ReadLine()
        WriteLine("Enter your age")
        temp(2) = ReadLine()
            data.Add(New person((temp(0)), (temp(1)), (temp(2))))
        Next

        For counter = 0 To data.Count - 1
            data(counter).display()
        Next
        Console.ReadLine()
    End Sub
    Class person
        Public navn As String
        Public efternavn As String
        Public alder As Byte
        Public Sub display()
            Console.WriteLine("Navn: " & (navn) & (efternavn) & "    " & (alder) & " Gammel")
        End Sub
        Public Sub New(ByRef navn, ByRef efternavn, ByRef alder)

        End Sub
    End Class

End Module

**************************
resutat af koden er:
Navn:      0 år gammel
Navn:      0 år gammel
Navn:      0 år gammel
Navn:      0 år gammel
Navn:      0 år gammel

hvordan for jeg den til, at skrive:
navn, efternavn og alder?

som det fremgår af navnet på spørgsmålet er jeg ikke så hård til vb.net så bær over med mig:)