El siguiente código lo utilizo para poder saber que tipo de control es y de esa forma realizar la operación necesaria.
Código:
Sub IniControls(myForm As Form)
Dim cCtrl As Control
For Each cCtrl In myForm.Controls
If TypeOf cCtrl Is TextBox Then
cCtrl.Text = ""
ElseIf TypeOf cCtrl Is ComboBox Then
If cCtrl.ListCount > 0 Then cCtrl.ListIndex = 0
End If
Next
End Sub
El objetivo del código es poner vacio todos los textbox y los combobox en su estado inicial.
Saludes