Private $email As String Private $nombre As String Property email As String Property nombre As String Static Public listacontactos As New Variant[] Public Sub _new(nom As String, ema As String) With Me .nombre = nom .email = ema End With Me.anade() End Private Function nombre_Read() As String Return $nombre End Private Sub nombre_Write(Value As String) $nombre = Value End Private Function email_Read() As String Return $email End Private Sub email_Write(Value As String) $email = Value End Static Public Sub anade() Contacto.listacontactos.Add(Me) End