I'm trying to find an appointment in Outlook through code but I'm having trouble because the criteria wants a string, however I would like the criteria to search for the text property of a control. Here's what I have so far:

Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim fdAppoint As Outlook.MAPIFolder
Dim itmsAppoint As Outlook.Items
Dim itm As Object
Dim criteria As String

Set ns = ol.GetNamespace("MAPI")

'Reference the deafult Calendar folder and then
'return the Items collection of the folder
Set fdAppoint = ns.GetDefaultFolder(olFolderCalendar)

Set itmsAppoint = fdAppoint.Items

'Establish the criteria and locate the Appointment
criteria = "[subject] = 'appt.text'"

Set itm = itmsAppoint.Find(criteria)

'Determine if the item was found
If itm Is Nothing Then

MsgBox "Unable to locate the item in Outlook." & vbLf & "Please Delete Manually."
'Display the Appointment
End If

This line is what needs to be changed:

criteria = "[subject] = 'appt.text'"

Appt is the control and I would like it to search for the results of that control in the subject line of the appointment but I can't find anything out there that helps me do this. Any ideas??