Limpiar TextBox

Hola Amigos;
Bueno mi problema esq no puedo limpiar las cajas de texto q estan dentro de
un control Tab, de 2 fichas, e creado un Sub, q me limpie las cajas de texto
pero no entra a analizar las fichas, xq?, ustedes tienen alguna solucion a
este problema, por favor les agradeceria un apoyo.., Tenga la Idea que es con
recursiva pero no me sale,

este es mi Sub
Private Sub LimpiarCajasTexto(ByVal Controles As Form.ControlCollection)
Dim Caja As Control
For Each Caja In Controles
If TypeOf Caja Is TextBox Then
Caja.Text = ""
Else
'-LimpiarCajasTexto(Caja.Controls)
End If
Next
End Sub