Dim olApp As Outlook.Application
        olApp = CType(CreateObject("Outlook.Application"),Outlook.Application)
 
        Dim olNSpace As Outlook.NameSpace
        olNSpace = olApp.Application.GetNamespace("Mapi")
 
        Dim olFolders As Outlook.MAPIFolder
        olFolders = olApp.GetNamespace("Mapi").GetDefaultFolder( _
                        Outlook.OlDefaultFolders.olFolderContacts)
 
        Dim newItem As Outlook.ContactItem
        Dim i As Integer
        For i = 1 To olFolders.Items.Count
            newItem = olFolders.Items().Item(i)
            MsgBox(newItem.FullName)
        Next