VBA: ¿Cómo cambiar el valor de otra celda a través de una función?

Soy un novato de Excel VBA.

¿Cómo cambiar el valor de la celda especificada a través de una función definida por el usuario? ¿Qué tiene de malo este código?

Function Test(ByVal ACell As Range) As String
  ACell.Value = "This text is set by a function"
  Test := "Result"
End Function

Mi deseo es ... cuando escribo=Test(E6) en la celda E1, Excel mostrará el texto especificado en E6.

Respuestas a la pregunta(4)

Su respuesta a la pregunta