Visual Basic - FOR EACH, ayuda please!!!

Buenas...

Necesito hacerme una funcion que limpie los ComboBox y las TextBox, de cualquier formulario que le pase como parametro. Se que se puede hacer con un for each muy sencillo porque en cierta ocasion lo hice pero no me acuerdo y lo estoy intentando pero no lo consigo....

Muchas gracias por adelantado

Debe ser algo así, que como ves manejamos los errores a next, de forma que si intentamos poner Combo a 0 se vaya a la siguiente instrucción.
La forma de llamarlo sería Limpiar Me y lo pondras en un modulo

Public Sub Limpiar(Formulario As Form)

Dim Control As Object

On Error Resume Next
For Each Control In Formulario.Controls
Control.Text = ""
Control.ListIndex = -1
Control.Value = 0
Next Control

End Sub