Ayuda con Codigo en Visual Basic 6.0

[bsosa]

Hola a todos.

En la sección de trucos de visual basic encontre el siguiente codigo:

Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Close #canalLibre
End Sub

Sera que pueden explicarme su funcionamiento ya que lo intente creando un programa con un textbox y un command butom y al empaquetar el programa funciona correctamente pero cuando lo instalo en otra maquina desaparece el tipo de letra que le puse y no copia el archivo en Windows con el contenido del texbox..

Repito.. solo funciona en mi maquina y en otras no..
tambien probe cambiando el contenido del texbox en modo paswoord para que sea oculto al escribirlo y me lo decifre el en archivo txt que se copia al C...

y solo funciona en mi maquina

Ayudenme..

[$Edu$]

Como que "desaparece el tipo de letra que le puse" ? ese codigo funciona, no lo probe pero tiene que andar sin problemas, que tu codigo no sea SOLO eso y tenga otras cosas... es otro tema.

Tambien si no anda en otra pc tendria que dejar algun error aunquesea.