Изменение формулы в ячейке Экселя - VB

Формулировка задачи:

Чё - то я запутался.....
Задача такая: в ячейке стоит цифра "4" (например). После работы макроса там должна быть формула "=4+(1)". Но если в ячейке уже стоит формула "=4+(1)", тоды должна быть формула "=4+(1)

+(1)

"
Вроде усё просто, а написать код не могу...
За ценные советьы спасибо.

Решение задачи: «Изменение формулы в ячейке Экселя»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> r = Sheet1.Range(<font color="teal">"A1"</font>)
<font color="blue">If</font> r.HasFormula <font color="blue">Then</font> r.Formula = r.Formula & <font color="teal">"+(1)"</font> <font color="blue">Else</font> r.Formula = <font color="teal">"="</font> & r.Value & <font color="teal">"+(1)"</font>