Visual Basic - Clase para borrar caja de texto

Hola muy bien dia a todos los programadores,,

Tengo un problema, nesecito una clase que borre todas las cajas de texto de un formulario si alguien me pudiera ayudar

por favor lo nesecito mucho
y como recompensa el que me ayude le mando una invitacion al correo de google.

Eso se puede hacer sin clases, aunque tiene que cumplor unos requisitos que no se si podras hacer cumplir

Con este código:

For Each CTRL In Me.Controls
If CTRL.Tag = 69 Then CTRL.Text = ""
Next

Pero para que esto te funcione tienes que ponerle a todos los textbox el tag 69

Otra solucion posible sería llamar a todos los textbox "txtloquesea" y el código seria este:

For Each CTRL In Me.Controls
If left(3, CTRL.name) = "txt" Then CTRL.Text = ""
Next

Espero haberte sido de ayuda, se que no es lo que pedias pero hacer hace lo mismo...

Saludos

'Yo tengo un boton cuando inicio algo nuevo en el Form
'y con este código limpio todos los TextBox del Form
'haz un boton que se llame Nueva, y prueba
Private Sub Nueva_Click()
Limpiar
End Sub

'Y esto es lo que llamo
Sub Limpiar()
Dim ctl As Control
For Each ctl In Controls
If TypeOf ctl Is TextBox Then _
ctl.Text = ""
Next ctl
End Sub

salu2 y suerte