validar todos los textbox

[jc_moty]

Proba asi:

Código:

    Dim ctl As Object
    Dim vacios As Boolean
    vacios = True
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then
            If Len(Trim(ctl.Text)) > 0 Then
                vacios = False
                Exit For
            End If
        End If
    Next
    If vacios = True Then MsgBox "Todos los Texboxs estan Vacios"

Espero te sirva