Помогите перенести функцию из VB в ОО
 

сама она такая, точнее их две:Делался файл в экселе. Некоторые ячейки вычисляются посредством вот такого кода:Код:Function SumColor(rgn As Range) As DoubleDim Sum As DoubleDim C As RangeSum = 0For Each C In rgn If (C.Font.ColorIndex > 0) Or (C.Interior.ColorIndex > 0) Then Sum = Sum + C.ValueNextSumColor = SumEnd FunctionFunction SumNoColor(rgn As Range) As DoubleDim Sum As DoubleDim C As RangeSum = 0For Each C In rgn If (C.Font.ColorIndex