Public Function FormulaToString(sArd) As String
Dim r1 As Range, ii As Byte, ic As Byte
Dim sTmp1 As String, sTmp2 As String, ss As String
Dim sTmp3 As String
Const s0 = "=", s2 = "+", s3 = "-", s4 = "*", s5 = "/", s6 = "^"
Const sc1 = "("
Const sc2 = ")"

Set r1 = Cells(6, 1)
sTmp1 = Empty: sTmp2 = VBA.Trim(r1.Formula)
sTmp3 = Empty
For ii = 1 To VBA.Len(sTmp2)
    ss = VBA.Trim(VBA.Left(VBA.Right(sTmp2, VBA.Len(sTmp2) - ii + 1), 1))
    Select Case ss
     Case s0, s2, s3, s4, s5, s6, sc1, sc2
        On Error Resume Next
        ss = VBA.CStr(Range(sTmp3).Value) & ss: sTmp3 = Empty
        sTmp1 = sTmp1 & ss
     Case Else
        sTmp3 = sTmp3 & ss
     End Select
Next ii
If sTmp3 <> Empty Then sTmp1 = sTmp1 & VBA.CStr(Range(sTmp3).Value)
FormulaToString = sTmp1
End Function