Objeto Padre

Alguien pdría ayudarme a completar este código para que cuando use los
MsgBox me aparezca el nombre correspondiente.
Quiero que cada Persona tenga un padre del mismo modo en qe se usa un
treenode

Gracias

sub jkldjfdl()
Dim p1 As New Persona("A")
Dim p1a As New Persona("A1")
Dim p1a1 As New Persona("A1A")
p1a.Personas.Add(p1a1)
p1.Personas.Add(p1a)
MsgBox(p1a.Parent.Nombre) 'Debería decir A
MsgBox(p1a1.Parent.Nombre) 'Debería decir A1
end sub

'Código

Public Class Persona
Private _Nombre As String
Private _Personas As Personas
Private _Parent As Object
Sub New(ByVal nombre As String)
_Personas = New Personas
_Nombre = nombre
End Sub
Public ReadOnly Property Nombre() As String
Get
Return _Nombre
End Get
End Property
Public ReadOnly Property Personas() As Personas
Get
Return _Personas
End Get
End Property
Public ReadOnly Property Parent() As Object
Get
Return _Parent
End Get
End Property
End Class

Public Class Personas
Inherits ArrayList
End Class