サンプルファイル

---

Private Sub CommandButton1_Click()


Dim i As Long

'-----------------------------------------
'テキストボックスの値をループ処理で削除
'[TextBox1.Text] ---> [TextBox10.Text]
'-----------------------------------------

'1,2,3---> 10

For i = 1 To 10

Controls("TextBox" & i).Text = ""

Next i



End Sub

---

Private Sub CommandButton1_Click()


Dim i As Long

'-----------------------------------------
'テキストボックスの値をループ処理で削除
'[TextBox01.Text] ---> [TextBox10.Text]
'-----------------------------------------

'01,02,03---> 10
For i = 1 To 10

Controls("TextBox" & Format(i, "00")).Text = ""

Next i



End Sub