Çözüldü Veri girilmesini zorunlu hale getirme

[sirkülasyon]

22 adet textbox
17 adet combobox
aşağıdaki gibi yazmak yerine daha kısa olanı için yardımcı olabilir misiniz?

Private Sub CommandButton1_Click()
.
.
.
.
.
If TextBox1.Value = Empty Or TextBox2.Value = Empty Or TextBox3.Value = Empty Or TextBox3.Value = Empty Or TextBox5.Value = Empty Or TextBox6.Value = Empty Then
MsgBox "TextBox'ları Boş Geçmeyiniz", vbCritical
Else
MsgBox "Teşekkürler"
End If
End Sub

 

[Haluk]

Private Sub CommandButton1_Click()
    For i = 1 To 22
        If Me.Controls("TextBox" & i) = Empty Then MsgBox Me.Controls("TextBox" & i).Name & " boş olamaz!"
    Next
End Sub

.

 

[sirkülasyon]

Haluk,abi
Yardımınızı esirgemediğiniz için teşekkür ederim. Sağ olasın. Hakkını helal et.

 

[Haluk]

Eyvallah, kolay gelsin ...

.