[[Solucionado]] pasar un formulario y sus controles a una funcion

[manzarinaa]

Hola a tod@s!
Os cuento por que ya le he dado muchas vueltas y no hay manera.
tengo una funcion (...pretendo hacerla) que se llama ValidarFormulario
pretende coger un formulario, recorrer sus textbox e informar de si falta alfun campo por rellenar
el codigo que tengo es este. No le hagais ya mucho caso por que lo he reescrito tantas veces....que perdio el sentido

validado = ValidarFormulario(frmCliente)

Public Function ValidarFormulario(formulario As Form) As Boolean
Dim i As Integer
Dim aux As String
Dim fallo As Boolean
Dim mensaje As String
Dim crtl As Control

fallo = False
mensaje = "Faltan los siguientes datos: " & vbCr
For Each crtl In formulario.Controls
If TypeOf formulario Is TextBox And TextBox.Caption = "" Then
fallo = True
mensaje = mensaje & TextBox.Tag & vbCr
End If
Next crtl
If fallo Then
MsgBox mensaje, , "Faltan datos"
Else
ValidarFormulario = True
End If


El fallo salta en esta linea
If TypeOf formulario Is TextBox And TextBox.Caption = "" Then
cuando me dice, Se requiere un objeto

a ver si alguien me puede echar un cable :) graciaaaas