Вопрос спецам по VB

Столкнулся со следующей проблемой. Формула из бухгалтерской программы (см.ниже) выполняет в Excel проверку на приход/расход, делает соответствующие вычисления (+/-) и выводит результат операции в столбец
"Результат", но после того как в программе добавили две валюты, эта дура стала складывать баксы с рублями. Как
сделать, чтобы прога делала еще анализ валют и складывала и минусовала рубли с рублями, а баксы с баксами?
Заранее спасибо всем, кто поможет.
-----------------------------------------------------------------
Sub Формула(i As Long)

If Trim(Cells(i, 2).Value) = "+" Then
Cells(i, 8).FormulaR1C1 = "=N(R[-1]C)+N(RC[-5])"
Else
Cells(i, 8).FormulaR1C1 = "=N(R[-1]C)-N(RC[-5])"

End If
End Sub
------------------------------------------------------------------

[tooman]

А где хранится признак валюты? Типа, наверное есть еще ячейка в таблице?