Ayuda por favor !!!! ( vb6 )

[FedericoC]

alguien sabe como hacer para que cuando aprete un boton ( command1), cree un archivo de texto con el texto de label1, label2, etc.
Desde ya Gracias

[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