Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Create()
Dim condFmt As ConditionalFormat = wb.CreateConditionalFormat()
Dim cond As Condition = _
condFmt.CreateCondition( _
Condition.Comparison.CellValueBetween, _
"=100", _
"=150")
cond.Formula2 = "=200"