Нужна помощь в создании кода для кнопки макроса

[elshad66]

Доброе время суток,всем крепкого здоровья и всех благ. Нужна помощь в создании кода для кнопки макроса.
Собрал внуку чпу рисовалку, по бороздив просторы интернета нашел 2 макроса для corel.
Первый макрос генерирует УП(управляющяя программа) ,и выкидывает в C:\CDR2Mill\CDR2Mill.txt.
Второй макрос отправляет УП на рисовалку.
Каждый раз приходиться копировать содержимое CDR2Mill.txt и вставлять в окно отправщика удаляя предыдущий УП.
Хотелось бы, как то сократить телодвижения с copy/paste.Много форумов по макросам перелопатил,но так и не нашел,
есть копирование тхт в экзель, ворд итд , а мне нужно копирование в окошко макроса.Большое спасибо тому кто поможет в написании кода
Для наглядного представления приложил видео

http://moemesto.ru/elshad66/file/151...y/macro%20.rar


эта ссылка почему-то не открывается с сайта, если скопировать адрес ссылки и открыть в новом окне ,то открывается

[Aleksandr H.]

Если создали кнопку, ну так и допилить туда что-то подобное

Dim Total As String
Dim FilePath As String
Dim strLine As String
FilePath = ' Путь к файлу txt
Open FilePath For Input As #1
While EOF(1) = False
    'read the next line of data in the text file
    Line Input #1, strLine
    Total = Total & vbNewLine & strLine
Wend
Close #1

TextBox_Куда_Надо_Вывести_Текст = Total