Public Overridable Property Vorname As String
        Get
            Return myVorname
        End Get
        Set(ByVal value As String)
            myVorname = value
        End Set
    End Property
 
    Public Overridable Property Nachname As String
        Get
            Return myNachname
        End Get
        Set(ByVal value As String)
            myNachname = value
        End Set
    End Property
 
  protected delimeter as string = ", "
    Public Overrides Property Erinnerungstext As String
        Get
            Return Vorname & ", " & Nachname
        End Get
        Set(ByVal value As String)
            Vorname = value.Split(delimeter)(0)
            Nachname = value.Split(delimeter)(1)
        End Set
    End Property

Micke