Collection.Restrict(...) based on AppointmentItem UserProperty ???

[Guest]

I'm a VBA Newbie. Working with some code found on Slipstick.com.

I need something like this:

strFind = "[Start] < " & _
Quote(Format(dteDate, "dd mmm yyyy") & " 12:00 AM") & _
" AND [End] > " & _
Quote(Format(dteDate, "dd mmm yyyy") & " 12:00 AM")
Debug.Print strFind

Set colMyAppts = colCal.Restrict(strFind)

Except, I'm trying to RESTRICT the collection to appointment items
containing a USERPROPERTY called "Project", i.e.
Item.UserProperties("Project").

Thanks.