VBA Count Emails in outlook mail box and enter count and oldest email date into excel cell

Hello - I found some great code in some very old threads but the code only displays a msg box with the email count.

I'm trying to adjust so it not only counts the number of emails in a designated inbox but also gives the date of the oldest email in the inbox then places the count and date into designated cells in the sheet.

Original Code

Please Login or Register  to view this content.

I've tried adjusting the MsgBox statement to a Range = value statement (Below) but all it's doing is adding the phrase and not the count.

Please Login or Register  to view this content.

How do I add an oldest email date and entering the data into the designated cells?

I've searched a lot of forums without luck.

Thank you in advance.

Something like below?
Basically sorts items in folder.items collection (ascending), and reads ReceivedTime of first item.
This only sorts collection in code and not the actual inbox.

Please Login or Register  to view this content.

This works for me.

Please Login or Register  to view this content.