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