En ocasiones es necesario limpiar o inicializar todos los campos de un formulario. Si el formulario contiene bastantes controles, esta tarea puede llegar a ser tediosa. La siguiente rutina limpia de forma automática el contenido de cualquier campo en un formulario: 

Public Sub LimpiarControles(frmForm _
As Form) 
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmForm.Controls
ctlControl.Text = ""
ctlControl.ListIndex = -1
DoEvents
Next ctlControl
End Sub
En el formulario llame a la función de la siguiente forma: 
LimpiarControles Me

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)