Visual Basic - Guardar .txt

Hola a todos, he encontrado el codigo fuente de un keylogger,pero este muestra las teclas pulsadas en un text box,yo quiero hacer que las teclas que salen en ese text box se guarden en un archivo .txt para eso he utilizado la funcion.

Dim i As Integer
Open App.Path & "\Documentos.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1

que me dijieron hace poco,claro sustituyendo el list por el text,pero no los guarda me genera el archivo .txt pero cuando lo abro no hay nada escrito en el, ¿alguien sabe a que se debe?.

Gracias por su ayuda :)

Pon el código que usas y buscaremos el fallo

Dim i As Integer
Open App.Path & "\Documentos.txt" For Output As #1
For i = 0 To Text1.text
Print #1, Text1.text(i)
Next
Close #1

Asi lo pongo

Bien... mira este es el codigo que si te servira para guardar en el archivo.... Se supone que el control Text1 en su propiedad Text ya contiene todas las pulsaciones capturadas....

Open App.Path & "\Documentos.txt" For Output As #1
Print #1, Text1.text
Close #1

Hasta pronto....

Visita mi foro en http://programador.foro.st

o.k,pues para confirmar lo que pasa es que estaba poniendo el codigo en el evento form_load y despues pense que pasaria si lo pusiera en el evento change del text y si resulto.

Muchas gracias por todo bye

Probá con esto

Dim hFile As Integer

hFile=FreeFile

Open App.Path & "\Documento.txt"For Binary Access Write As #hFile

Put #hFile,1,Text1.Text

Close #hFile