１０回繰り返し実行するには？

---

はじめまして。下の実行を、１０回ほど繰り返したいのですが、初心者なものでさっぱり分かりません。
ご存知の方がいらっしゃいましたら、ご鞭撻のほどお願いいたします。
Private Sub 乱数発生_Click() '乱数発生スイッチ
upper1 = 10
lower1 = -10
If fg1 = 0 Then '初期スピードaの乱数発生
Randomize
a = Int((20 * Rnd) + 1)
a2 = a
Text11.Text = a2 '初期スピードの表示
Text4.Text = a '現在スピードの表示
fg1 = 1
End If
End Sub

編集 削除

---

何をどう１０回実行したいのですか？

For i = 1 To 10
  乱数発生_Click()
Next

とか

Private Sub 乱数発生_Click '乱数発生スイッチ

  For i = 1 To 10
    upper1 = 10
    lower1 = -10
    If fg1 = 0 Then '初期スピードaの乱数発生
      Randomize
      a = Int((20 * Rnd) + 1)
      a2 = a
      Text11.Text = a2 '初期スピードの表示
      Text4.Text = a '現在スピードの表示
      fg1 = 1
    End If
  Next
End Sub

とか

どこを１０回実行したいのかこれだけでは見えませんが。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。