Codigo:open "nombrefichero.txt" for output as #1print #1,text1.text "Poner en vez de text1, el nombre de tu cuadro de textoclose #1