Private Sub Command1_Click()
 ' Abrir el archivo en modo Ouput (osea de salida y eliminando el contenido previo)
 Open Archivo1 For Output As #1
 
 ' Escribir el texto en el archivo
 Print #1, Text2
 
 ' En lugar de Print, tambien puede utilizarse la funcion Write. La diferencia
 ' es que esta funcion pone caracteres " al inicio y al final"
 ' Write #1, Text2
  
 ' Cerrar el archivo
 Close #1
End Sub

Private Sub Command2_Click()
 ' Abrir el archivo en modo Append (osea de salida y al mismo tiempo respetando lo que ya hay en el archivo)
 Open Archivo1 For Append As #1
 
 ' Escribir el texto en el archivo
 Print #1, Text2
 
 ' Cerrar el archivo
 Close #1
End Sub

Private Sub Command3_Click()
 ' Abrir el archivo en modo lectura
 Open Archivo2 For Input As #1
 
 ' Hacer un cliclo desde la primer linea hasta EOF (osea hasta que finalize el archivo)
 Do While Not EOF(1)
   ' Line Input es para leer una linea completa y a su vez asignarselo a la variable "linea"
   Line Input #1, linea
   ' Poner el valor en el TextBox
   Text4 = Text4 & linea & vbCrLf
 Loop
 
 ' Cerrar el archivo
 Close #1
End Sub