Visual Basic - cajas de texto

HOLA QUE TAL

MI PROBLEMA ES QUE TENGO UNA APLICACION QUE TIENE 148 CAJAS DE TEXTO

Y LO QUE QUIERO ES QUE AL PONERLO EN EJECUCION EN LAS CAJAS DE TEXTO NO APARESCA LO DE TEXT4 TEXT5 TEXT23

ALGUNA FUNCION QUE ME LOS BORRE TODOS DESDE QUE LA INICIO.

YA SE QUE EN LA PROPIEDAD TEXT PUEDO DEJARLA EN BLANCO PERO NESESITO DEJARLAS EN MODO DE PROGRAMACION CON SU NOMBRE

QUE APARECAN EN BLANCO AL PONERLAS EN EJECUCUION.

GRACIAS Y LES AGRADESCO MUCHO LA AYUDA QUE MEPUEDAN PROPORCIONAR.

Debes recorrer los objetos del formulario y consultar un valor que tengan en común las cajas de texto, como por ejemplo el texto de estas.

Por ejemplo pones en el Load del formulario:

Private Sub Form_Load()
Dim Objeto As Control

For Each Objeto In Me.Controls
If InStr(1, UCase(Objeto.Text), "TEXT", vbTextCompare) Then
Objeto.Text = ""
End If
Next Objeto

End Sub

Lo que hago en este código es recorrer todo slos objetos del formulario y comprobar si tienen en la propiedad .text el valor "text".

Ten en cuenta una cosa, este código asume que solo existen cajas de texto en el formulario y que no pertenecen a una matriz de controles. Si se da el caso de que existan controles que no admitan la propiedad (text), esto generará un error.

Espero que te sirva.
Un saludo

Otra opción (sin restricciones).
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Controls.Count - 1
If TypeOf Controls(i) Is TextBox Then
Controls(i).Text = ""
End If
Next i
End Sub