Выравнивание в txt файле - VB

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

Ребята Здравствуйте подскажи как выравнивать текст который записан в текстовом файле например по правому краю листа А4.

Решение задачи: «Выравнивание в txt файле»

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

                            ...
Dim TxtLen As Integer
Dim Spase As Integer
TxtLen = Len("Ф.И.О.: " & Text1 & " " & Text2 & " " & Text3)
Spaсe = 150 - TxtLen
 
Open "01.txt" For Output As #1
 
    Print #1, Spc(Spaсe); "Ф.И.О.: " & Text1 & " " & Text2 & " " & Text3
...
                        