Exportar arquivo com a data conforme o exemplo

Bom dia senhores,

Tenho o código abaixo:
Que gerar este arquivo abaixo e funciona bem:
C:\exportar\tmp\ProdutoSite.xml

Mas agora pediram para mim que faça uma alteração conforme abaixo:

Como dever ficar apenas com a data sendo mudada automaticamente pela data do dia:
C:\exportar\tmp\20292customer24042016.xml

O final 24042016 será mudado pela data do dia o resto é fixo:


Private Sub Comando27_Click()
Dim sXMLPath As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "qyr_Excluir_Geral", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Excluir_Enviar_1", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Exportar_Grade", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Exportar_Normal", acViewNormal, acEdit
DoCmd.OpenQuery "Qyr_Enviar", acViewNormal, acEdit
sXMLPath = "C:\exportar\tmp\ProdutoSite.xml"
ExportXML acExportTable, "Tbl_Enviar_Site1", sXMLPath
MsgBox "Enviado com sucesso para C:\exportar\tmp\ProdutoSite.xml "
End Sub