A la hora de manipular ficheros lo mejor es que uses el objeto FileSystemObject, en la ayuda viene bastante claro cómo hacerlo.
Así podrías escribir una línea con este objeto:
dim linea as string
dim file, fso
linea= "Esto es una prueba"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(rutadelfichero, ForAppending, True)
file.WriteLine (linea)
Lo he escrito más o menos de memoria, así que a lo mejor hay algún fallito, pero más o menos es así.