Para crear un archivo y escribir en el usa:
MiArchivo="C:MITEXTO.TXT"
open MiArchivo for Output as #1
for i=1 to 10
   print #1,i
next i
close(1)
Para leer el archivo usa:
MiArchivo="C:MITEXTO.TXT"
open MiArchivo for Input as #1
for i=1 to 10
   input #1,Linea
   print Linea
next i
close(1)