Возможно ли задать несколько условий в операторе If

If a < 0 Or c > 0 Or d = 0 Then
   b = 1
End If

If instr(,Text1(0).Text,db.mdl,)>0 or _
        instr(,Text1(0).Text,db.pr,)>0 or _
        instr(,Combo1(0).Text,db.os,)>0 or _
        instr(,Text1(2).Text,db.cpu,)>0 or _
        instr(,Combo1(1).Text,db.ram,)>0 or _
        instr(,Text1(3).Text,db.mmr,)>0 or _
        instr(,Text1(4).Text,db.bat,)>0 or _
        instr(,Combo1(2).Text,db.scr,)>0 or _
        instr(,Text1(5).Text,db.diag,)>0 or _
        instr(,Text1(6).Text,db.rslw,)>0 or _
        instr(,Text1(7).Text,db.rslh,)>0 or _
        instr(,Combo1(3).Text,db.bt,)>0 or _
        instr(,Combo1(4).Text,db.wifi,)>0 then

If instr(Text1(0).Text,db.mdl) then

If InStr(Text1(0).Text, db.mdl) > 0 Or _

If InStr(1,Text1(0).Text, db.mdl,1) > 0 Or _

Select Case a
Case Is < 32
    ' a < 32
Case 133, 47, 124, 92, 44, 46, 187, 171
    ' [133, 47, 124, 92, 44, 46, 187, 171]
End Select

Select Case a
Case Is < 32, 133, 47, 124, 92, 44, 46, 187, 171
  '...
End Select

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

Private Sub Form_Load()
    Dim i&, d#
    While d < 1: d = Val(InputBox("Угадай, сколько будет 3^4 ?")): Wend
    For i = 1 To 4
        If Choose(i, "11", "21", "81", "511") = d And d = 3 ^ 4 Then Exit For
    Next
    If i < 5 Then MsgBox "Правильно !" Else MsgBox "Неправильно !"
    End
End Sub