limpiar text

[apofis]

no logro limpiar el text despues de pulsar el siguiente boton,me explico:

tengo un text en el cual al pulsar un boton aparece el contenido de un archivo de texto y asi sucesivamente con tres botones y diferentes textos y el problema es que cuando pulso el segundo boton quiero limpiar lo que salio anteriormente y que aparezca el nuevo texto,asi con los tres botones y no lo consigo.

e probado con esto:
Dim text As Object
For Each text In Controls
If TypeOf text Is TextBox Then text.text = ""
Next

les dejo el codigo:

Option Explicit
Dim cam As String
Dim reproductor As String
Dim acercade As String
Dim renglon As String

Private Sub Command1_Click()
renglon = Chr(13) & Chr(10)
Open App.Path & "\cam.txt" For Input As #1
While Not EOF(1)
Line Input #1, cam$
Text1.text = Text1.text & cam & renglon
Wend
Close #1
End Sub


Private Sub Command2_Click()
renglon = Chr(13) & Chr(10)
Open App.Path & "\reproductor.txt" For Input As #1
While Not EOF(1)
Line Input #1, reproductor$
Text1.text = Text1.text & reproductor & renglon
Wend
Close #1
End Sub

Private Sub Command3_Click()
renglon = Chr(13) & Chr(10)
Open App.Path & "\acercade.txt" For Input As #1
While Not EOF(1)
Line Input #1, acercade$
Text1.text = Text1.text & acercade & renglon
Wend
Close #1
End Sub

[seba123neo]

Hola,proba asi:

Código:

Private Sub Command1_Click()
Dim Ctrl As Control
For Each Ctrl In Me
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

saludos.

[apofis]

me sigue dando el mismo problema si meto ese codigo al principio sale el texto pero no lo borra y si lo meto en otra parte del codigo el texto no aparece.

bueno ya esta solucionado simplemente e puesto despues del private sub command_click() esta sencilla orden Text1 = "",asi en cada uno.

si es que aveces las cosas son mas sencillas de lo que parecen pero no se ven.