Print 1 To 10 without using any Looping concept ( ascending and descending order )

Ascending  Order:

i = 0
Function num(no)
i = i+1
b = i & vbNewLine
    MsgBox b
    If i<no Then
        Call num(no)
    End If
    
End Function

Call num(10) ' Print 1,2,3 .... 10


Descending Order:

i = 0
Function num(no)
i = i+1
b = i & vbNewLine
    
    If i<no Then
        Call num(no)
    End If
    
    MsgBox b
    
End Function

Call num(10) ' Print 10,9,8 ...1

...