Benutzerdefinierter Formular Felder auslesen

Hallo zusammen, ich schaffe es nicht, in mein Benutzerdefinierter Formular comboFelder auszulesen.

Formularname: „IPM.Contact.AD_Contact“

Feld : „cmbKategorie“

Dim OlApp            As Outlook.Application

Dim olContact        As Outlook.ContactItem

Dim olFolderInbox    As Outlook.MAPIFolder

Dim ns As Outlook.NameSpace

Dim objPropKategorie1

Dim objPropKategorie1Val

On Error Resume Next

Set OlApp = CreateObject(„Outlook.Application“)

Set ns = OlApp.GetNamespace(„MAPI“)

Set objPropKategorie1 = olContact.UserProperties.Add(„cmbKategorie“, olText)

Set objPropKategorie1Val = olContact.UserProperties.Find(„cmbKategorie“)

If objPropKategorie1Val = („Bank“) Then MsgBox („Alle OK“)

End If