Print the value from 10 to 1

Design Form :-
1. Select one command button on form.

Private Sub Command1_Click()
Dim i As Integer
i =10
Do While i>=1
Print i
i = i-1
Loop
End Sub