Accessing and finding outlook item

Dim lobj_contacts As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim lobj_contact As Microsoft.Office.Interop.Outlook.ContactItem
lobj_contacts = gobj_outlook.GetNamespace("MAPI").
GetDefaultFolder(Microsoft.Office.Interop.Outlook.
OlDefaultFolders.olFolderContacts)
Dim ToList As String = message.To
lobj_contact = lobj_contacts.Items.Find("[Email1DisplayName]=""" & ToList & """")
gdebug_writer.append(lobj_contact.Email1Address)