este es un ejemplo (que baje de algun sitio de internet) que utilizo para guardar un log de una copia de seguridad que realizo, creo que te serviria para lo que estas queriendo realizar, fijate que tiene una rutina que recibe como parametro un comando a guardar en el log (en tu caso modificalo y fijate lo q quieras guardar) y recibe el archivo donde lo voy a guardar
Espero te sirva
Dim str_log 'Ruta + Nombre del fichero Log
str_log = "d:\resguardo\logs\copia del - " & FormatDateTime(Date, vbLongDate) & ".log"
Sub s_EscribeLog(str_Linea, str_Log)
'Esta rutina recibe una línea que se debe escribir en el fichero de texto cuya
'ruta+nombre está especificada por str_Log
Dim obj_FS
Dim obj_Log
Set obj_FS = CreateObject("Scripting.FileSystemObject")
Set obj_Log = obj_FS.OpenTextFile(str_Log, 8, False)
obj_Log.WriteLine str_Linea
obj_Log.Close
Set obj_Log = Nothing
Set obj_FS = Nothing
End Sub