How to show formulas of neighbouring cells in Excel using VBA

Making a function that can display the formula of a specified cell in Excel. Here is the VBA code:
*************************************************
Function getfunction(r As Range) As String
If r.HasArray Then
getfunction = "\-- " & "{" & r.FormulaArray & "}"
Else
getfunction = "\-- " & r.FormulaArray
End If
End Function