Option Explicit
Private Sub CommandButton1_Click()
Dim CTRL As Control
Dim i As Byte
For i = 20 To 70
For Each CTRL In Me.Controls
If TypeName(CTRL) = "TextBox" Then
If CTRL.Name = "TextBox" & i Then
Me.Controls.Remove (CTRL.Name)
End If
End If
Next CTRL
Next i
End Sub