Text Box functions

[sivdin]

Hi Experts,

I have set of four text boxes in an userform,along with it, I have combo box and checkboxes.
I have customized the form such that the submit button will not execute unless until all the required fields are filled b the user.Now I have four textboxes, either in one something to be filled.
To expalin in detail, If all the four text boxes are not filled then if I click submit button, it should come with a msg, otherwise if atleast one text box is filled out of four,then submit button should be OK

I have tried the following code, it did'nt work for me.Please excuse if it is silly

If Len(TextBox5.Value) And Len(TextBox6.Value) And Len(TextBox7.Value) And Len(TextBox9.Value) = Empty Then
        MsgBox "Enter number of Defects", vbExclamation
        TextBox5.SetFocus
        Exit Sub
    End If