すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1〜ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1　〜　ｎ個の”*　”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ〜1個の＊を順番に表示させるためにはDo〜Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。