Como criar uma pasta que seu nome seja o dia do recebimento de um e-mail?

Question

Public Sub ProcessarAnexo(Email As MailItem)
 Dim DirAnexo1 As String
 Dim strRem As String
 Dim strDataHoje As String
 Dim MailID As String
 Dim Mail As Outlook.MailItem
 
 DirAnexo1 = "C:\XML"
   
 MailID = Email.EntryID
 Set Mail = Application.Session.GetItemFromID(MailID)
  
  
 'strDataHoje = Format(Mail.CreationTime, "yyyymmdd")       '?????????
 'strDataHoje = Mail.ReceivedTime                           '?????????
 strRem = Mail.SenderEmailAddress
 
  For Each Anexo In Mail.Attachments
  If Right(Anexo.FileName, 3) = "xml" Then
   If Dir(DirAnexo1 & "\" & strRem & "\" & strDataHoje, vbDirectory) = "" Then
    MkDir DirAnexo1 & "\" & strRem & "\" & strDataHoje
    Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & strDataHoje & "\" & Anexo.FileName
   Else
    Anexo.SaveAsFile DirAnexo1 & "\" & strRem & "\" & strDataHoje & "\" & Anexo.FileName
   End
 
 Next
 Set Mail = Nothing
End Sub

Tenho o código acima montado, mas preciso que no script pegue a data do e-mail recebido e crie uma pasta,

com o nome do anomesdia do recebimento.

'strDataHoje = Format(Mail.CreationTime, "yyyymmdd")       '?????????
'strDataHoje = Mail.ReceivedTime                                '?????????

 Já testei com estas duas linhas, mas sem sucesso, o que tem de errado?

Teria de salvar assim:

C:\XML\[e-mail]\20130717\6387456928375683475896358.xml

Agradeço desde já a colaboração.

Atenciosamente,

Diego