Como escribir en un txt con vb6?

[Troyano]

sub probando()

dim x as integer


x=freefile
open app.path & "\elarchivo" for output as x

print x,"escribir algo"

close x

end sub

eso te sirve como ves para crear un sencillo archivo de acceso secuencial en modo de escritura.