Hola a todos les envio un codigo para limpiar Todos los objetos que necesitemos
Ojala Les Sirva
Saludos a Todos
Sub Limpiar()
Dim i, x As Integer
If HasControls() Then
For i = 0 To Controls.Count - 1
For x = 1 To Controls(i).Controls.Count - 1
If TypeOf Controls(i).Controls(x) Is TextBox Then
CType(Controls(i).Controls(x), TextBox).Text = ""
End If
If TypeOf Controls(i).Controls(x) Is Label Then
CType(Controls(i).Controls(x), Label).Text = ""
End If
Next x
Next i
End If
End Sub