'Dans un Module
Public Sub EffaceTextBox(ByRef UForm As UserForm)
    Dim Ctrl As Control
    'Boucle pour tout les contrôle de UForm
    For Each Ctrl In UForm.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = VbNullString
    Next
    Set Ctrl = Nothing
End Sub

'N'importe ou dans un USerForm
Call EffaceTextBox(Me)

Sub ClearTextBoxes(ByRef Parent As Form)
    Dim Ctrl As Object
    For Each Ctrl In Parent
        If TypeOf Ctrl Is TextBox Then Ctrl.Text =  vbNullString
    Next Ctrl
    Set Ctrl = Nothing
End Sub

'Dans un Module
Public Sub EffaceTextBox(ByRef UForm As UserForm, ParamArray ExceptTextBoxes())
    Dim Ctrl As Control, i As Long, bModif As Boolean
    'Boucle pour tout les contrôle de UForm
    For Each Ctrl In UForm.Controls
        bModif = True
        If TypeOf Ctrl Is MSForms.TextBox Then
            For i = LBound(ExceptTextBoxes) To UBound(ExceptTextBoxes)
                If Ctrl.Name = ExceptTextBoxes(i) Then
                    bModif = False
                         Exit For
                    End If
            Next i
            If bModif Then Ctrl.Value = vbNullString
        End If
    Next
    Set Ctrl = Nothing
End Sub
'--------------------------------------------------------------------------------
'Dans n'importe quel UserForm, les TextBoxes rajoutés en paramètre ne seront pas affectés
Call EffaceTextBox(Me, "TextBox2", "TextBox4")

// classes nécessaires
import java.awt.Container;
import javax.swing.JTextField;
/**
  * Effacer tous les champs texte d'un container.
  */
void clear (Container container) {
    if (container == null)
       throw new NullPointerException ();
    Component [] comps = container.getComponents ();
    for (int i = 0; i < comps.length; ++i) {
        if (comps [i] instanceof JTextField)
            comps [i].setText ("");
    }
}

//On parcours chacun des controles de la fenêtre
   foreach (System.Windows.Forms.Control c   in this.Controls)
   {
       if  (c is System.Windows.Forms.TextBox) //Si le control est un textbox..
           c.Text = ""; //On efface son texte
   }