Вывод числовой последовательности "лесенкой" - VB

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

Задача: Осуществить вывод натуральных чисел от 1 до n следующим образом: 1 1 2 1 2 3 1 2 3 4 ... n Весь день голову ломал, пришел к 2-ум результатам, оба работают не корректно. 1)

Option Explicit
Sub lesenka()
Dim i, j, n As Integer, Str, Str1, z As String
n = Val(InputBox("Введите количество элементов"))
Str = ""
Str1 = ""
For i = 1 To n
For j = 1 To n
Str = Str1 & i & " " & vbCr & z
Next j
Str1 = Str1 & i & " "
z = Str
Next i
MsgBox Str
End Sub

Option Explicit
Sub lesenka()
Dim A() As String, i, n, k As Integer, Str, str1 As String
n = Val(InputBox("Введите количество элементов"))
Str = ""
str1 = ""
k = 0
ReDim A(n) As String
For i = 1 To n
Str = Str & 1 + k
k = k + 1
Next
For i = 0 To n - 1
A(i) = Left(Str, 1 + i)
str1 = str1 & A(i) & vbCr
Next
MsgBox str1
End Sub

Собственно, 1 вариант выводит логически граммотно, но начиная снизу вверх (надо наоборот). Притом, при относитьльно больших числах лесенка сбивается. 2 вариант делает "по хитрому" и просто вырезает символы, заносит их в массив и опускает каждый элемент в строку. Проблема в том, что числа не считаются, поэтому после 9 итерации начинает выводится все те же 0, 1 и тд. Можно ли как-то привести один из вариантов к правильному выводу, или существует другой метод осуществить эту задачу?

Решение задачи: «Вывод числовой последовательности "лесенкой"»

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

                            Sub lesenka(n)
If n > 0 Then
lesenka n - 1
  For j = 1 To n
    Print j;
  Next j
  Print
End If
End Sub
 
Private Sub Command2_Click()
Cls
lesenka Val(InputBox("Введите количество элементов", , 12))
End Sub
                        