Function Evl(ByVal Rng As String)
  Dim st As String
  st = StrConv(Rng, vbNarrow)
  st = Replace(st, "×", "*")
  st = Replace(st, "÷", "/")
  st = Replace(st, "x", "*")
  st = Replace(st, " ", "")
  Evl = Evaluate(st)
End Function

1. 上記プロシージャを標準モジュールに貼る
2. ワークシートでA1セルに計算式文字列が入力されているとして以下のように記述

 =Evl(A1)