Daten in Zellen schreiben

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