When I run my code below it always shows up that the "ActivityID
Doesn't Exist" even after I run this multiple times.  Does anyone see a
problem with why my myUserProperty is always nothing?

   Dim myOlApp As New Outlook.Application
           Dim myItem As Outlook.AppointmentItem
           Dim myUserProperty As Outlook.UserProperty
           Dim myAppt As Outlook.AppointmentItem
           myAppt = currentApptsModified.GetFirst
           myUserProperty = myAppt.UserProperties("AcitivityID")
           If Not myUserProperty Is Nothing Then
               MsgBox("ActivityID Exists")
           Else
               myItem =
myOlApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
               myUserProperty =
myItem.UserProperties.Add("AcitivityID",
Outlook.OlUserPropertyType.olNumber)
               MsgBox("ActivityID Doesn't Exist")
           End If