tengo un problemilla  al hacer este programa propuesto en la revista hackxcrack haber si alguien me puede ayudar 
al escribir la funcion:
Open ("prueba.txt") for output as #1
print #1, "hackxcrack"
close #1
no me enseña el prueba.txt con la palabra hackxcrack en el interior
cual es el problema????
gracias de antemano

muchas gracias ya se crea el . txt ahora el problemilla esta al enviar ese archivo a mi ftp pongo esto
Inet1.Execute "http://ftp://mi ftp", "PUT c:\prueba.txt " & Winsock1.LocalHostName & ".txt"

y en mi serv -u pone stor rafael.txt: 500 permision denied este es el comando para enviarlo
falla algo??
gracias de nuevo