Задание нескольких условий if - VB

Формулировка задачи:

Ребята здравствуйте, помогите пожалуйсто, немогу понять как организовать условия так, что-бы проверялось каждое текстовое поле в отдельности, но если во всех отсутствуют данные так же проверялись все вместе! О как думаю правильно сформулировал

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
If Text1(0).Text = "" And _
Text1(1).Text = "" And _
Text1(2).Text = "" Then _
 
Text1(0).BackColor = &HFF&
Text1(1).BackColor = &HFF&
Text1(2).BackColor = &HFF&: MsgBox "некоторые поля не заполнены!"
 
Else
Text1(0).BackColor = &H80000005
Text1(1).BackColor = &H80000005
Text1(2).BackColor = &H80000005
 
End If
End Sub

Решение задачи: «Задание нескольких условий if»

textual
                            Листинг программы 
                        
 
                            
                        
' Получистовая стадия
        Dim Lz As Single
        Dim Bz As Single
        Dim Razm As Single
        Lz = TextBox10.Text 'длина обработ. пов.
        Bz = TextBox11.Text 'ширина обработ. пов.
        Razm = TextBox9.Text 'выполняемый размер
        If TextBox2.Text = St2 Then 'если стоит получистовая
            If Lz <= 160 Then 'если длина менее или равна 160
                If Bz <= 160 Then 'если ширина менее или равна 160
                    If Razm <= 80 Then TextBox6.Text = 2.1
                ElseIf Razm < 120 Then
                    TextBox6.Text = 2.3
                ElseIf Razm < 180 Then
                    TextBox6.Text = 2.6
                ElseIf Razm < 250 Then
                    TextBox6.Text = 2.8
                ElseIf Razm < 315 Then
                    TextBox6.Text = 3.1
                ElseIf Razm < 400 Then
                    TextBox6.Text = 3.3
                ElseIf Razm < 500 Then
                    TextBox6.Text = 3.5
                ElseIf Razm < 630 Then
                    TextBox6.Text = 4.2
                ElseIf Razm > 630 Then
                    TextBox6.Text = 4.7
                End If
            End If
        End If