For EACH

[Beakdan]

Roortiz:
Esto te puede ayudar:

Código:

Private Sub ClearTextBoxesText()
Dim ctrlIter As VB.Control
Dim ctrlText As VB.TextBox
	For Each ctrlIter In Me.Controls
		If TypeOf ctrlIter Is VB.TextBox Then
			Set ctrlText = ctrlIter
			ctrlText.Text = ""
		End If
	Next ctrlIter
End Sub

Saludos.