No me aparece el archivo

Hola, Vereis he echo un programilla en visual basic 6 que consiste en a traves de un archivo de texto, te envie por ftp la IP del host, la version del SO etc.. La cuestion esque cuando inicio el programa, empieza la cuenta, y al llegar a 1, se me conecta al servidor ftp para supuestamente enviarme el txt con los datos del host remoto, pero no aparece el archivo, y en el servidor ftp me sale como que estoy conectado. Es decir, me ejecuta perfectamente el programa, pero a la hora de pasarme el archivo, pues no lo hace.
Pongo el codigo para ver si el problema viene de ahi, pero no creo.
Dim Ti

Private Sub Form_Load()
Ti = 0
Timer1.Interval = 1000
End Sub

Private Sub incremento_Click()
Ti = Ti + 1
inicio.Caption = Ti
Open ("prueba.txt") For Output As #1
Print #1, "IP: ", Winsock1.LocalIP
Print #1, "Nombre Host: ", Winsock1.LocalHostName
Print #1, "S.O --> ", SysInfo1.OSPlatform
Print #1, "Version --> ", SysInfo1.OSVersion
Print #1, Date, " -----> ", Time
Close #1
Inet1.Execute "ftp : // user : pass @ ip : puerto ", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
//esta con espacios que sino me salen caras
End Sub

Private Sub Timer1_Timer()
Call incremento_Click
End Sub

Tengo que decir que los dos pc's, tanto el de donde he heco el programa como donde tengo el servidor ftp, los tengo en LAN, es como mi pc de pruebas.
Gracias, y el problema es ese, que no logro localizar el archivo

No intentaste poniendo rutas absolutas?

Segun me ha pasado, cuando ejecutamos visual basic todo lo que se crea se aloja en el siguiente directorio:

C:\Archivos de programa\Miscrosoft Visual Studio\Basic\prueba.txt

esto podrias comprobarlo en un Form_Load escribiendo lo siguiente:

MsgBox App.Path

Asi podras conocer donde puede estar el archivo.