Попробуй для открытия файлов использовать
Open "in.txt" For Random As 1 Len = 1
Open "out.txt" For Random As 2 Len = 1

Затем просматриваешь файл in.txt с помощью
   Get 1, , s   '  где s определена как Dim s As String*1

Как только встретится нужный символ пишешь все последующие символы до конца строки в переменную, например str1

После этого таким же способом ищешь нужный символ в файле out.txt, и все последующие символы запоминаешь в str2

Далее в фаил out.txt записываешь сначало символы из str1, а затем из str2

[skulida]

lesco
Спасибо за ответ.
С этим я уже разобрался.
Делаю это через объекты Scripting.FileSystemObject и Scripting.TextStream.
Однако, это только часть задачи. Пока не пойму как можно
вырезать не строки а блоки из нескольких строк, начинающихся определенными символами, а затем их (блоки) перемешать в произвольном порядке.
Т.е. есть текстовый файл в котором несколько сот текстовых блоков, каждый их которых  начинается сиволом &НАЗВ! и заканчивается  &END!. Надо их перемешать, т.е. произвести ротацию в произвольном порядке.
Как ?
В той книге, что я читаю по бэйсику ниченго не написано про чтение блоков.
Спасибо.