Sub ShowAddressEntries_Click()
On Error Resume Next
Set MyPage = Item.GetInspector.ModifiedFormPages ("AddressEntries Collection")
Set ListBox1 = MyPage.Controls("ListBox1")
Set MyNameSpace = Application.GetNameSpace("MAPI")
Set MyAddressList = MyNameSpace.AddressLists("Personal Address Book")
If MyAddressList Is Nothing Then
    MsgBox "Personal Address Book Unavailable!", vbExclamation
    Exit Sub
End If
Set MyAddressEntries = MyAddressList.AddressEntries
For i = 1 To MyAddressEntries.Count
    Set MyEntry = MyAddressEntries.Item(i)
    ListBox1.AddItem MyEntry.Name
Next
End Sub