YES. This should get you started, however there isn't an ALIAS property
for ContactItems listed in the Outlook Object Model/Outlook Help. Which
property where you referring to? (The code below only looks in the
default Contact folder. I'm checking on how to loop through all folders.)

Sub snoopContacts(strContact As String)

    Dim objOutlook As Outlook.Application
    Dim nms As Outlook.NameSpace
    Dim targetFolder As Outlook.MAPIFolder
    Dim targetItems As Outlook.Items
    Dim targetContact As Outlook.ContactItem
    Dim strFilter As String

    Set objOutlook = CreateObject("Outlook.application")
    Set nms = objOutlook.GetNamespace("MAPI")
    Set targetFolder = nms.GetDefaultFolder(olFolderContacts)

    'The [] around the property are required
    'Not all ContactItems will have a FullName and example would be
    'if you have a Company listed in your contacts where the company
    'name is listed in the COMPANY field, but no FIRST/LAST Name is
    'provided
    strFilter = "[FullName]=" & Chr(34) & strContact & Chr(34)
    Set targetItems = targetFolder.Items.Restrict(strFilter)

    Debug.Print targetItems.Count

    Stop

    Set targetItems = Nothing
    Set targetFolder = Nothing
    Set nms = Nothing
    Set objOutlook = Nothing

End Sub