Private Sub Cmd_prueba_contactos_Click()
    ' If there are more than 500 contacts, change the following line:
    Dim MyEntryID(500) As String
    Dim StoreID As String
    Dim EntryID As String
    
    Dim ObjApp As Outlook.Application
    Dim ObjNs As Outlook.NameSpace
    Dim ObjFolder As Outlook.Folder
    Dim ObjMail As Outlook.MailItem
    Dim ObjAtt As Outlook.Attachments
    
    Dim AllContacts As Outlook.Items
    Dim Item As Object
    
    Set ObjApp = CreateObject("Outlook.Application")
    Set ObjNs = ObjApp.GetNamespace("MAPI")
    
    Set ObjFolder = ObjNs.GetDefaultFolder(olFolderContacts)
    ' Get the StoreID, which is a property of the folder.
    StoreID = ObjFolder.StoreID
    ' Set objAllContacts equal to the collection of all contacts.
    Set AllContacts = ObjFolder.Items
    i = 0
    ' Loop to get all of the EntryIDs for the contacts.
    For Each Item In AllContacts
        i = i + 1
        MyEntryID(i) = Item.EntryID
    Next Item
 
    ' Randomly choose the 2nd contact to retrieve.
    Set Item = ObjNs.GetItemFromID(MyEntryID(2), StoreID)
    Item.Display

End Sub