Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Create()
Dim condFmt As ConditionalFormat = wb.CreateConditionalFormat()
Dim cond1 As Condition = _
condFmt.CreateCondition( _
Condition.Comparison.CellValueGreaterThan, _
"=100")
Dim cond2 As Condition = _
condFmt.CreateCondition( _
Condition.Comparison.CellValueBetween, _
"=100", _
"=150")
condFmt.RemoveCondition(0)