dim a as new ABAddressBookMBS
dim p as new ABPersonMBS

if not p.setValue("Ben",a.kABFirstNameProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABFirstNameProperty)
end if

dim a as new ABAddressBookMBS
dim p as new ABPersonMBS

if not p.setValue("Miller",a.kABLastNameProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABLastNameProperty)
end if

dim a as new ABAddressBookMBS
dim p as ABPersonMBS = a.owner // get my card
MsgBox p.valueForProperty(a.kABMaidenNameProperty) // show my maiden name

dim a as new ABAddressBookMBS
dim p as ABPersonMBS = a.owner

// read
MsgBox p.valueForProperty(a.kABNoteProperty).StringValue

// write
if p.setValue("Hello World", a.kABNoteProperty) then
  if a.save then
    MsgBox "Changed."
  end if
end if

dim a as new ABAddressBookMBS
dim p as new ABPersonMBS

if not p.setValue("My Company",a.kABOrganizationProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABOrganizationProperty)
end if