Exportar datos de excel a otro libro

Hola, mira me estoy creando un programilla donde tengo que ingresar una cantidad grande de datos a una hoja de excel, pero cuando se cierra ekl mes esto yo lo exporto con una macro a un archivo de texto TXT mediante un botón de comando el cuial lo hace perfecto, y con otro botón borro todos los datos que se encuentran dentro de un rango, eso lo hago para volvé con el mes siguiente y empezar de cero, por eso yo los datos los exporto para que quede guardado en una carpeta POR y así no copiar y pegar y borrar manualmente.
El asunto es que me funciona te envío el código:
Sub exportar()
'exporta un rango de celdas resultando col de datos
Dim FileSysObj As Object
Dim ArchivoTxt As Object
Dim AreaTexto
AreaTexto = ActiveSheet.Range("B1:B10000").Value
Set FileSysObj = CreateObject("Scripting.FileSystemobject")
Set ArchivoTxt = FileSysObj.CreateTextFile("D:\andres\codigosnexo\227\carga_mes_227.txt", True)
'recorre el rango a copiar
Dim celda
For Each celda In AreaTexto
ArchivoTxt.WriteLine celda
Next
ArchivoTxt.Close
End Sub
Pero, lo que quiero es que al momento de guardar, aparte del titulo del archivo que esta marcado en negro, aparezca la fecha de cuando se guardó, osea carga_mes_227_05-06-2010.txt, ya que como esto se hace todo los meses al exportar los datos, no crea un archivo nuevo si no que "borra el anterior y graba el nuevo", y se pierden los datos y no quiero hacer un guardar como.
De antemano muchas gracias ...