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

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

Text1(2).Text = "" Then

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To 2
       If Text1(i).Text = "" Then
          Text1(i).BackColor = &HFF&
          MsgBox "Поле Text1(" & i & ")  не заполненo!"
          Exit For
       End If
       Text1(i).BackColor = &H80000005
    Next i
End Sub

' Получистовая стадия
        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