I can do, but something as simple as this will throw the same error.
With Only one Outlook Diary Entry which recurs every 10 years on the 1st January.
Set OutLkAppointment = OutLkItems.GetFirst
Set OutLkAppRecurrence = OutLkAppointment.GetRecurrencePattern
debug.print OutLkAppRecurrence.RecurrenceType ' Prints 5
debug.print OutLkAppRecurrence.DayOfMonth ' Prints 1
debug.print OutLkAppRecurrence.MonthOfYear ' Prints 1
debug.print OutLkAppRecurrence.Interval ' Prints 120
OutLkAppRecurrence.Interval = 120 'Throws Invalid Recurrence Pattern RTE