la forma de abrir el azrchivo no es la correcta
deber abrirlo en forma de apped.
es decir..abrir para actualizar la informacion.
claro, que con la FileSystemObject..no me manejo mucho
asi que no se que atributo hayt que darle al archivo para que no se reescriba
con apis.es relativamente facil..

o por que no usas la api
CreateFile ...  ?
ami me resulta mas facil..
lo unico que hay que declararla
pero si pones el archivo winnt .
ni eso..

Claro la clave como te decia yo antes es esto

la forma en que abres el archivo
con eso le indicamos al VB:
que lo abra para agregar informacion y no para reescribirlo ni suplantarlo.

Y como puedo hacer la comparacion si el archivo ya existe. Ya que me gustaria hacer algo asi.

if "existe el archivo" then
   que esciba en el archivo
else
   que lo cree y escriba en el archivo
end if
 

De antemano gracias

Oye gracias esta buenisimo el Tutorial y de pasada vi muchos mas, ya encontre la solucion a mi problema, pongo el codigo y la explicacion para los que entren a leer el tema.

Dim mun As Integer
num = FreeFile
Open "C:\bb.txt" For Append As num
Print #num, "Hola"
Close
 

NOTA[/b][/color]

Si el archivo de texto no existe, lo genera y escribe en el, si ya existe comienza a introducir datos al final del mismo, y si el archivo ya existe pero esta vacio, solo escribe en el.
Con esto no hay necesidad de hacer la comaracion.
De nuevo muchas gracias.