VBA: Como alterar o valor de outra célula através de uma função?

Sou novato no Excel VBA.

Como alterar o valor da célula especificada por meio de uma função definida pelo usuário? O que há de errado com este código:

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

Meu desejo é ... quando digito=Test(E6) na célula E1, o Excel exibirá o texto especificado em E6.