Function soll Werte in ander Zellen schreiben

Function selbst, danebeben ausgerechnete Werte in bestimmte Zellen geschrieben werden. Meine Versuche haben allerdings nicht funktioniert. Wer kann helfen?
Beispiel

Function Test (A as Double, B as Double)
x = A + B
Y= A * B
Test = X
activecell.offset(1,0)=Y
End Function


Danke !

Matthias