macro mensajes outlook

Tengo una macro que me importa a excell informacion de los mails que tengo en
la carpeta de entrada, el problema es que me lee los mails de forma aleatoria
(los mete en OLF.Items(i)), no hay alguna forma de que me los ordene por
fecha (posicion 0 fecha menor , posicion n fecha mayor)?? aqui va parte del
codigo...

Dim OLF As Outlook.MAPIFolder, CurrUser As String
Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer

Set OLF = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Set OLF2 = OLF.Folders("Carpeta2")
EmailItemCount = OLF.Items.Count

i = 0: EmailCount = 0
mails = OLF.Items.Count
While i < mails
i = i + 1
With OLF.Items(i)

EmailCount = EmailCount + 1
asunto = .Subject

..

Utilizo las Referencias
Microsoft Outlook 10.0 Object Library y
Microsoft Outlook View Control

Y ya de paso otra pregunta, no en cuentro en la pagina de microsoft
informacion sobre estas referencias, en plan que me diga las propiedades
(.Date, .Sender????) de los objetos y demás (.subject, .Body, etc.. lo se por
post en internet :s)
mmm... espero haberme explicado bien.

Gracias!!