TextBox lardan biri boşsa kaydetme

[ozgretmen]

Selamlar...
Userform1 üzerinde 28 tane TextBox var.TextBox1,...,TextBox28 Buton Yardımıyla bunları sayfaya aktarıyorum.Bu TextBox lardan herhangi biri BOŞ bırakılırsa uyarı versin istiyorum.Şöyle yapmaya çalıştım:

If TextBox1 = "" OR TextBox2 = "" OR  ... ORTextBox28 = "" Then
'[COLOR="Red"][SIZE="2"]Burası çok uzayacak.kısa bir yolu var mutlaka.For-Next denedim.Ama olmadı...[/SIZE][/COLOR]
MsgBox "Lütfen Tüm Bilgileri Eksiksiz Olarak Giriniz !", vbOK
Else
Sheets("Depo").Range("C1").Value = TextBox1.Text
Sheets("Depo").Range("D1").Value = TextBox2.Text
Sheets("Depo").Range("E1").Value = TextBox3.Text
Sheets("Depo").Range("F1").Value = TextBox4.Text
Sheets("Depo").Range("G1").Value = TextBox5.Text
Sheets("Depo").Range("H1").Value = TextBox6.Text
Sheets("Depo").Range("I1").Value = TextBox7.Text
Sheets("Depo").Range("J1" ).Value = TextBox8.Text
...
End If

Olmadı...Yardımlarınız için şimdiden teşekkürler...

 

[Orion1]

For i = 1 To 28
    If Controls("TextBox" & i) = Empty Then
        MsgBox "Lütfen Tüm Bilgileri Eksiksiz Olarak Giriniz !", vbCritical, "UYARI"
        Exit Sub
    End If
Next i

 

[ozgretmen]

Çok teşekkürler sayın Evren Gizlen.

 

[Orion1]

Çok teşekkürler sayın Evren Gizlen.

Rica ederim.
İyi çalışmalar.