Ayuda por favor !!!! ( vb6 )

[Kelpie]

Código:

sub command1_click()
  dim f as integer
  f=freefile
  open "ruta/fichero.txt" for output as #f
  print#f,label1.caption
  print#f,label2.caption
  ....
  close #f
end sub