> - в одно поле вводиться текстовая фоpмyла состоящая из констант
> 2+5/4(3.3*8) и эта фоpмyла остается без изменений , а pезyльтат
> отобpажается в дpyгом поле.

Public Function Eval(s As String)
    If s <> "" Then Eval = Evaluate(r)
End Function

В A1 пишешь формулу (например "=1+1/(34+5)"), в B1 пишешь =Eval(A1).