Daten in Zellen schreiben

Mein Problem sieht wie folgt aus:

Ich habe eine Funktion geschrieben die Werte berechnet.
Die Ergebnisse sollen dann an einer anderen Stelle des aktiven
Sheet's wieder ausgegeben werde.

Public Function Test(A as Integer, B as Integer) As Integer
DIM C As Integer
DIM D As Integer
DIM E As Integer

C=A+B
Test = C
D = A-B
ActiveSheet.Cells(1, 1).Value = D
E = A*B
ActiveSheet.Cells(2, 2).Value = E
End Function

Leider bricht die Funktion beim schreiben der Variable D
komplett ab ( ohne Fehlermeldung ) und es wird lediglich
der C Wert an die Funktion übergeben und auch ausgegeben.

Was mache ich falsch?

Danke

Gruß
Nico