Filtrar o outlook Enviado pelo último mês e obter a contagem

Question

Estou tentando filtrar minha pasta enviada do Outlook no Word para obter a contagem do total de e-mails do mês passado.

' Connect to outlook
Dim outlook As Object
Dim NumEmails As Long
Dim name_space As Object
Dim SentFolder As MAPIFolder
Dim criterion As String

Set outlook = CreateObject("Outlook.Application")
Set name_space = outlook.GetNamespace("MAPI")

On Error Resume Next
Set SentFolder = name_space.GetDefaultFolder(olFolderSentMail)
If Err.Number <> 0 Then
    Err.Clear
    MsgBox "No such folder."
    Exit Sub
End If

If Month(Date) = 1 And Day(Date) < 27 Then
    ' It's January but we're reporting Decemember
    criterion = ""
ElseIf Day(Date) > 27 Then
    ' It's the end of the month; pull this month's data
    criterion = ""
Else
    ' It's not the end of the month; pull last month's data
    criterion = ""
End If

É o que eu tenho até agora, mas estou preso o que colocar como minha variável de critério e como utilizá-lo para filtrar a pasta.

Qualquer ajuda será apreciada.