Dim days As Variant
    Dim endDate As Date
 
    days = Split(objItem.CreationTime, " ")
    endDate = Date - 1
 
    If days(0) >= endDate Then
    ...
    End If

____________________________________

...vorhanden!