ActiveCell. Value

I have question.

If any (row/column) that cell, enter =orange22("thisis")

is it possible near that cell : a column+1 , show this ?

example: that D5 enter =orange22("thisis"), that script show result E5

but not work?

Thanks.


Module1:
Option Explicit

Public Function orange22(ByVal inputText As String) As String


'Range(CStr(Chr(64 + ActiveCell.Column + 1)) & CStr(ActiveCell.Row)).Value = "new" & inputText

orange22 = inputText & "<<"


End Function

Thanks , If need User-defined functions to show that result to other cell, is it possible?