lesco

Попробуй для открытия файлов использовать
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