Dim objOut As New Microsoft.Office.Interop.Outlook.Application
        Dim myFolder As Microsoft.Office.Interop.Outlook.MAPIFolder = _
          objOut.GetNamespace("MAPI").GetDefaultFolder( _
          Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts)
        Dim myContactItem As Microsoft.Office.Interop.Outlook.ContactItem
        Dim anzahl = myFolder.Items.Count()