Get the formula of a cell, eg =getformula(A1)

Function GetFormula(rCell as Range) as String
GetFormula = rCell.Formula
End Function