Записать значения выражения на лист текстового документа Word - VB

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

Нужно для n=1...46 найти значения выражения и записать их на лист документа.Программа работает,только выводит значения в порядка убывания,как сделать,чтоб выводись в порядке возрастания?

Sub Summa()
For k = 1 To 46 Step 1
sum = sum + k ^ 3
Documents(1).Paragraphs.Add Documents(1).Paragraphs(n + 1).Range
Documents(1).Paragraphs(n + 1).Range.Text = Str(k) & ": " & sum & Chr(13) + Chr(10)
Next k
End Sub

Решение задачи: «Записать значения выражения на лист текстового документа Word»

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

                            Sub Summa1()
For k = 1 To 46 Step 1
sum = sum + k ^ 3
Documents(1).Paragraphs.Add.Range.Text = Str(k) & ": " & sum & Chr(13) + Chr(10)
Next k
End Sub
                        