'******************************
'    Чтение бинарного файла                                         
'******************************

'Назначаем дескриптор файла
nFileHandle=FreeFile
'Открываем бинарный файл
Open "C:\TEST.BIN" For Binary As #nFileHandle
'Подготовить строку из 20 пробелов
МуString=String(20," ")
'Прочитать 20 байт из позиции 50 файла
Get #nFileHandle, 50, MyString
'Закрыть файл
Close nFileHandle

'Для прочтения всего файла можно
'вместо строки с Get использовать комбинацию на основе цикла Do While...Loop,
'которая считывает в str1 по одному символу и накапливает
'их в str2:

Do While Not EOF (nFileHandle)
    Get #nFileHandle, str1
    str2=str2 & str1
Loop



'*******************************
'    Запись в текстовый файл
'*******************************
    Dim FileName As String
    Dim Str, Str2 As String
    Str = Text1.Text
    'Открытие файла и запись информации из Str в файл
    FileName = "C:\proba.txt"
    Open FileName For Output As 1
    Print #1, Str
    Close 1
'*******************************
'    Чтение текстового файла
'*******************************
    Open FileName For Input As 1
    Str2 = Input(LOF(1), 1)
    Text2.Text = Str
    Close 1