Sub DisplayListMembers_Click()
On Error Resume Next
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
MyName = InputBox("Display entries in this Personal Distribution List:")
If MyName <> "" Then
    Set MyDistList = MyAddressList.AddressEntries(MyName)
    If Err Then
        MsgBox "Could not find " & MyName, vbCritical
        Exit Sub
    End If
    Set MyAddressEntries = MyDistList.Members
    For i = 1 To MyAddressEntries.Count
        Set MyEntry = MyAddressEntries.Item(i)
        MsgBox MyEntry.Name & " " & MyEntry.Address
    Next
End If
End Sub