Формат - VBA

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

Sub FileEx()
Dim x, y As Single
Open Application.ActiveWorkbook.Path & "\data.txt" For Input As #1
Open Application.ActiveWorkbook.Path & "\result.txt" For Output As #2
Print #2, "Таблица значений"
While Not (EOF(1))
 Line Input #1, x
 y = 1.41 * (x ^ 3 + x ^ 4 / 4)
 Print #2, "При x = "; Format(x, "##.##"); " значение функции "; " y = "; Format(y, "0##.###0")
Wend
Print #2, "Составил: < Сущенко Алексей Александрович >"
Close #1
Close #2
MsgBox ("Задача выполнена!")
End Sub

КАК СДЕЛАТЬ ТАКОЙ ФОРМАТ?

Решение задачи: «Формат»

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

                            Sub FileEx()
Dim x, y As Single
Open Application.ActiveWorkbook.Path & "\data.txt" For Input As #1
Open Application.ActiveWorkbook.Path & "\result.txt" For Output As #2
Print #2, "Таблица значений"
Print #2, "I" & String(40, "-") & "I"
Print #2, "I      X       I         Функция         I"
Print #2, "I" & String(40, "-") & "I"
While Not (EOF(1))
 Line Input #1, x
 y = 1.41 * (x ^ 3 + x ^ 4 / 4)
 Print #2, "I    Х="; Replace(format(x, "00.00"), ",", "."); "    I    Y="; Replace(format(y, "000.0000            I"), ",", ".")
Wend
Print #2, "I" & String(40, "-") & "I"
Print #2, "Составил: < Сущенко Алексей Александрович >"
Close #1
Close #2
MsgBox ("Задача выполнена!")
End Sub
                        