To værdier i en funktion

Jeg har en funktion som returnerer to værdier.
Den ene returneres i cellen hvor funktionen er indtastet, den anden skal brugeren udpege via en inputbox.

Jeg troede at jeg kunne gøre således:

Public Function ToResultater(X As Double, Y As Double) As Double
Dim Res2 As Double
Dim rCel As Range
Dim Txt As String
Txt = "Der er to resultater." & vbCr & _
"Udpeg en celle hvor det andet resultat skal indsættes."

ToResultater = X * Y
Res2 = X / Y
Set rCel = Application.InputBox(Txt, "Udpeg destinationscelle", , , , , , 8)
rCel.Value = Res2

End Function

...men det virker ikke!

Nogen med en god idé?

På forhånd tak.