как это ты Print не заметила ?
P.S. и фотка амбивалентная - на девушку не похоже
[quot
Работа с файлами
Проверено на текстовых файлах

Следующие понятия
Канал == Номер файла – Int выделяется FreeFile – следующий свободный
Open канал задействует Close освобождает
Связка выглядет следующим образом

OutCanal = FreeFile
OutFile = "c:\ui.txt"
Open OutFile For Output As #OutCanal
Close #OutCanal

Open – в режиме Output файл будет создан заново (?)

Запись в файл производится Print#
Print #OutCanal, OutString

Побайтное чтение
Open FileName For Binary As #Canal
Признак конца файла EOF(Canal)
Есть функции LOF(Canal) – длина файла и FileLen(путь к файлу)
Do While Not EOF(Canal) ' Цикл до конца файла
MyChar = Input(1, #Canal)
If (MyChar <> Chr(10)) Then ‘проверка конца строки - есть удобная константа vbLf
OutString = OutString & MyChar
Ct = Ct + 1
Else
..
Loop

[/quot]