Checking For Blank Textboxes (Variables)

I want to check to see if ALL textboxes are blank, then issue a message. My "Select Case" statement and "If" statement does not work. How can I accomplish this ? Below is what I have.



Blank = Null

Select Case Blank

Case strChartOfAccts1,

strChartOfAccts2, strChartOfAccts3, strChartOfAccts4, strChartOfAccts5 & _

strChartOfAccts6, strChartOfAccts7, strChartOfAccts8, strChartOfAccts9, strChartOfAccts10

MsgBox "Al lfields are blank "

Exit Sub

End Select





If strChartOfAccts1 = "" And strChartOfAccts2 = "" And strChartOfAccts3 = "" & _

strChartOfAccts4 = "" And strChartOfAccts5 = "" And strChartOfAccts6 = "" & _

strChartOfAccts7 = "" And strChartOfAccts8 = "" And strChartOfAccts9 = "" And strChartOfAccts10 = "" Then

MsgBox "Al lfields are blank "

Exit Sub

End If

Checking For Blank Textboxes (Variables)