Display Properties page (using person's name):
Return to List
strPersonName = "Doe, John"
Dim myAddressList As AddressList
Set myAddressList = Application.Session.AddressLists("Global Address List")
myAddressList.AddressEntries.Item(strPersonName).Details