I think it's working with GetOccurrence. Let me know if you would have
done this differently:

Dim myRecurrPatt As Outlook.RecurrencePattern
Dim myOddApptItem As Outlook.AppointmentItem

Set myRecurrPatt = SafeAppointment.GetRecurrencePattern

On Error Resume Next
Set myOddApptItem = myRecurrPatt.GetOccurrence(Date)
On Error GoTo 0

If myOddApptItem Is Nothing Then
'This is an exception.
Else
'This is not an exception.
End if