Graham, I had a work colleague look into this and this is the coding that worked:
I truly appreciate your help and thank you for everything you have helped me with.If CDate(Format(olItem.SentOn, "mm/dd/yyyy")) <= CDate(Format(Date - 1, "mm/dd/yyyy")) Then If CDate(Format(olItem.SentOn, "mm/dd/yyyy")) = CDate(Format(Date - 1, "mm/dd/yyyy")) Then strDate = Format(olItem.SentOn, "mm/dd/yyyy")