Запись в txt и последующая реакция - на записанное в txt - VBA

Формулировка задачи:

Доброе утро. Пытаюсь решить такую задачу: Есть три файла 1.xls, 2.xls и 1.txt В файле Макрос1 в файле 1.xls, прицепленный к кнопке - записывает в ячейку D18 либо 0 либо 1 Макрос2 в файле 2.xls (очень простой), прицепленный к кнопке - окрашивает три ячейки в разные цвета. Так вот вопрос - как при срабатывании макроса1 файла 1.xls - записать результат ячейки D18 - в файл 1.txt (стерев предыдущее содержимое). И как затем при запуске макроса2 в файле 2.xls - запускать его только в том случае, если в файле 1.txt - записана 1 ? То есть один макрос должен сделать запись в 1.txt, а второй макрос - прочитать 1.txt Файл 1.txt лежит по адресу c:\11\1.txt

Решение задачи: «Запись в txt и последующая реакция - на записанное в txt»

textual
                            Листинг программы 
                        

                            Dim X ' - переменная (0 или 1)
X = 1 'для примера пусть Х=1
'Пишем  X в файл:
    MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
    Open (c:\11\1.txt") For Output As #MyFile 'Открыть файл 1.txt на запись
            Print #MyFile, X ' пишем Х в файл
    Close #MyFile ' закрываем файл
 
'Читаем X из файла:
    MyFile = FreeFile
    Open ("c:\11\1.txt") For Input As #MyFile
            Input #MyFile, X ' читаем Х из файл
    Close #MyFile
    'if X =1 then .... else ....
                        