como lo puedo hacer??

[pabli]

'Esto copia
Private Sub btnGuardar_Click()

Dim fs

'Hace una copia
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile App.Path & "\archivo.txt", App.Path & "\GGG" & Format(Date, "ddmmyy") & ".txt"
End Sub

'Esto renombra
Name App.Path & "\archivo.txt" As App.Path & "\GGG" & Format(Date, "ddmmyy") & ".txt"



APP.PATH devuelve el directorio del ejecutable, esté donde esté.
Puedes meter una ruta fija si quieres.

Saludos