Есть add-in для Outlook. В одной и той же функции 2 практически одинаковых куска кода работают по разному:

Dim col As Outlook.Items

strFilter = "[MessageClass] > 'IPM.Contacs' And [MessageClass] < 'IPM.Contacu' And [id] > '0'"
Set col = FindFolder.Items.Restrict(strFilter)

strFilter = "[MessageClass] > 'IPM.Contacs' And [MessageClass] < 'IPM.Contacu' And [id] = '" & id & "'"
Set col = FindFolder.Items.Restrict(strFilter)

В первом случае находит все объекты, у которых задан UserProperties["id"], а во втором случае, когда ищу по конкретному id, не находит ни одного объекта. Причем Err=0. Все проходит без ошибок. Кто-нибудь знает как с этим справиться?