Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Esto a mi me funciona, espero que sea lo que buscas
'Este comando Guarda el contenido de una caja de texto el un fichero Private Sub Command1() Open "path\nombreFichero.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub
'Este comando lee el fichero y lo muestra en una caja de texto Private Sub Command2() Open "path\nombreFichero.txt" For Input As #1 Text1.Text = Input$(LOF(1), #1) Close #1 End Sub