How about this ?
<font face=Courier New>
<SPAN style="color:#00007F">Sub</SPAN> ReadFromOutlook()
<SPAN style="color:#00007F">Dim</SPAN> OutApp <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN> <SPAN style="color:#007F00">'Outlook.Application</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> NmSpace <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN> <SPAN style="color:#007F00">'Outlook.NameSpace</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> Inbox <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN> <SPAN style="color:#007F00">'Outlook.MAPIFolder</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> MItem <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Object</SPAN> <SPAN style="color:#007F00">'Outlook.MailItem</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Set</SPAN> OutApp = CreateObject("Outlook.Application")
<SPAN style="color:#00007F">Set</SPAN> NmSpace = OutApp.GetNamespace("MAPI")
<SPAN style="color:#00007F">Set</SPAN> Inbox = NmSpace.GetDefaultFolder(6) <SPAN style="color:#007F00">'olFolderInbox</SPAN>
i = 1
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> MItem <SPAN style="color:#00007F">In</SPAN> Inbox.Items
<SPAN style="color:#00007F">If</SPAN> Int(MItem.ReceivedTime) = Int(DateSerial(2003, 5, 5)) <SPAN style="color:#00007F">Then</SPAN>
i = i + 1
Cells(i, 1) = MItem.Subject
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> MItem
<SPAN style="color:#00007F">Set</SPAN> MItem = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> Inbox = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> NmSpace = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> OutApp = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>