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

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

Sub lesenka()
Dim i As Integer, j As Integer, n As Integer, S  As String
n = Val(InputBox("Введите количество элементов", , 12))
 
For i = 1 To n
  For j = 1 To i
     S = S & j
  Next j
  S = S & vbCrLf
Next i
 
MsgBox S, vbInformation
End Sub

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