Sort Outlook E-mail using VBCode.

I have project which reads new E-mails and Download attachments. I'm using Outlook Object. Everyting works fine except I need to make faster by sorting the E-mail by UnRead E-mail. I'm going through loop of Email item, here is the sample code.  Now, How would sort all my E-mail so that all UnRead E-mail show up first. So I only go through UnRead E-mails only.


Private Sub ReadMail(as_SenderName As String)
Dim oOUTLOOK As Outlook.Application    'Set myOlApp = CreateObject("Outlook.Application")
Dim oNamespace As Outlook.NameSpace
Dim myFolder As MAPIFolder
Dim ls_File As String
     
    Set oOUTLOOK = New Outlook.Application
    Set oNamespace = oOUTLOOK.GetNamespace("MAPI")
    Set myFolder = oNamespace.GetDefaultFolder(olFolderInbox)
    For Each myItem In myFolder.Items
        DoEvents
        If myItem.SenderName = as_SenderName Then
            If myItem.UnRead = True Then
                If myItem.Attachments.Count > 0 Then
                    ls_File = App.Path & "\" & myItem.Attachments.Item(1).FileName
                    myItem.Attachments.Item(1).SaveAsFile (ls_File)
                    Call gsb_OpenFile(Me, ls_File)
                   
                End If
            End If
        End If
    Next myItem

End Sub