有没有在vba中选择多个条件的简单方法？

If condition1 And condition2 Then
    ' 执行某些操作
End If

Select Case value
    Case condition1, condition2
        ' 执行某些操作
    Case condition3
        ' 执行其他操作
    Case Else
        ' 执行默认操作
End Select

Dim conditions(1 To 3) As Boolean
conditions(1) = condition1
conditions(2) = condition2
conditions(3) = condition3

For i = 1 To 3
    If conditions(i) Then
        ' 执行某些操作
    End If
Next i