Never mind, I figured it out... Here's what I came up with...
****************
oOutlook=CREATEOBJECT("Outlook.Application")
oNameSpace=oOutlook.GetNameSpace("MAPI")
oContactsFolder=oNameSpace.GetDefaultFolder(10)
oContacts=oContactsFolder.Items
oFolders=oContactsFolder.Folders
strFilter = "[MessageClass] >= 'IPM.Contact' AND [MessageClass] <= 'IPM.Contact'"
oContacts = oContacts.Restrict(strFilter)
i=0
*SCAN THRU CONTACTS MAIN FOLDER
For each loContact in oContacts
i=i+1
With loContact
Wait window .CompanyName
Endwith
Endfor
*SCAN THRU CONTACTS SUBFOLDERS (IF ANY)
For each loFolder in oFolders
oContacts=oContactsFolder.Folders(loFolder.Name).Items
oContacts = oContacts.Restrict(strFilter)
For each loContact in oContacts
i=i+1
With loContact
Wait window .CompanyName
Endwith
Endfor
Endfor
? i
************
Is there a way that you see that I could combine the two steps into one?