07. Reversed Numbers

Sub ReverseNumbers()
    Dim n As Integer
    n = 5

    For i = n To 1 Step -1
        Debug.Print i
    Next i
End Sub