Private Sub GetContacts()
  Dim objOut As New Outlook.Application
        Dim myFolder As Outlook.MAPIFolder =
objOut.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFold
erContacts)
        Dim myContactItem As Outlook.ContactItem
        For Each myContactItem In myFolder.Items
            Try
                Console.WriteLine(myContactItem.LastNameAndFirstName)
            Catch
            End Try
        Next
End Sub