Sub Sample() Dim i As Integer Open "C:\Test.txt" For Output As #1 For i = 10 To 1 Step -1 Print #1, "ABC"; Spc(i); "XYZ" Next i Close #1 End Sub