output.txt값이 비베 실행처럼 안나오네요

input.txt 값을5라고 줬습니다.
output.txt 값이     1    12   123  123412345
그러나 비베를 실행했을때는
     1
    12
   123
  1234
12345 이렇게 나옵니다 어떻게 해야할까요.

Private Sub Command1_Click()
Dim b, i, j As Integer
Dim a As String

Open "a:\input1.txt" For Input As #1
Open "a:\output.txt" For Output As #2

Do While Not EOF(1)
Line Input #1, a

For i = 1 To Val(a)
b = Val(a) - i
Print Spc(b);
Print #2, Spc(b);
For j = 1 To i
Print j;
Print #2, j;
Next
Print
Next
Loop
Close #1
Close #2
End Sub