Hmm, In der Theorie sollte das eigentlich funktionieren. Da die Eigenschaft Firstname, Lese-/Schreibzugriff erlaubt. Praktisch scheint sie auf diese Art aber nur den Wert an den Parameter zu übergeben, aber dessen Rückgabewert nicht wieder aufzunehmen. Macht man ja auch nicht so, oder willst du dauerhaft, die "-" mit in der Eigenschaft gespeichert haben?

Beschäftige dich mal mit dem Unterschied zwischen Sub und Function. Du beginnst AddDelimiter als Sub und endest als Function (kann schonmal nicht funktionieren! :-) ) Wenn ja, würde ich das Ganze so aufbauen:

Function AddDelimiter(ByRef str As String, ByVal del As String)
 
  AddDelimiter = del + str + del
 
End Function
Sub Test()
 
  Dim Person As CPerson
 
  Set Person = New CPerson
 
  Person.Firstname = "Max"
  Person.Surname = "Mustermann"
 
  Person.Firstname = AddDelimiter(Person.Firstname, "-")
 
 End Sub

Gruß Mr. K.